XProfan

Français

p.specht

veux on aus Messwerten y trop verschiedenen, - pas absolument dans gleichen Abständen vorliegenden - x-Werten sans grand le détour sur Polynome une Praxis-Tabelle avec x-Werten dans gleichen Abständen faire, bietet sich cela procéder qui Herren Aitken et Neville à. Dabei peut ggf. léger weitere Messwerte hinzugefügt volonté, avec cela cela Ergebnis präziser wird.

Kompilieren Marque Séparation

Titre de la fenêtre "Interpolation pour Aitken-Neville"
' Q: Wikipedia, div. Fachzeitschriften
Fenêtre Style 24
Fenêtre 0,0 - %maxx,%maxy
imprimer " qui Interpolationsformel de Aitken et Neville ist dann"
imprimer " besonders effizient, si aus etwa doppelt so vielen Stütz-"
imprimer " se mettre seulement wenige Werte vite interpoliert volonté devoir,"
imprimer " sans qui cela Interpolationspolynom selbst gefragt ist."
imprimer
declare x![25],y![25],n&,i&,a!,b!,s!
declare p![25,25],k&,p1!,p2!
imprimer " Eingabeteil:"
imprimer " Anzahl Wertepaare [max. 25]: ";:input n&

whileloop 0,n&-1:i&=&Boucle

    imprimer int(i&+1);". Wertepaar: x = ";:input x![i&]
    imprimer         "              y = ";:input y![i&]

endwhile

imprimer
imprimer " Bereich, dans dem y-Werte interpoliert volonté devoir:"
imprimer " de: ";:input a!
imprimer " jusqu'à: ";:input b!
imprimer " Schrittweite: ";:input s!
imprimer
imprimer " Berechnung starten avec [bouton]!"
waitinput
cls
imprimer
imprimer " Ergebnis:"
imprimer "          x                        y    "
imprimer "-----------------------------------------------"
k&=0

whileloop 0,n&-1:i&=&Boucle

    p![i&,k&]=y![i&]

endwhile

Naechstes:

Whileloop 0,n&-2:k&=&Boucle

    whileloop k&+1,n&-1:i&=&Boucle

        p1!=(a!-x![i&-k&-1])*p![i&,k&]-(a!-x![i&])*p![i&-1,k&]
        p2!=x![i&]-x![i&-k&-1]
        p![i&,k&+1]=p1!/p2!

    endwhile

endwhile

imprimer a!,p![n&-1,n&-1]'= Ergebnisse

si a!<B!:a!=a!+s!:goto "Naechstes":endif

    Imprimer "OK.";:waitinput:Fin