XProfan

Español

p.specht

Will uno de Messwerten y a verschiedenen, - no necesariamente en gleichen Abständen vorliegenden - x-Werten sin großen Umweg encima Polynome una Praxis-Tabla con x-Werten en gleichen Abständen hacer, bietet se el Verfahren el Herren Aitken y Neville a. Dabei puede ggf. ligeramente weitere Messwerte hinzugefügt voluntad, así el Ergebnis präziser se.

Kompilieren Marca Separación

Título de la ventana "Interpolation después de Aitken-Neville"
' Q: Wikipedia, div. Fachzeitschriften
Ventana de Estilo 24
Ventana 0,0 - %maxx,%maxy
imprimir " El Interpolationsformel de Aitken y Neville es dann"
imprimir " besonders effizient, si de etwa doppelt así vielen Stütz-"
imprimir " stellen sólo wenige Werte rasch interpoliert voluntad debería,"
imprimir " sin daß el Interpolationspolynom incluso gefragt es."
imprimir
declarar x![25],y![25],n&,i&,a!,b!,s!
declarar p![25,25],k&,p1!,p2!
imprimir " Eingabeteil:"
imprimir " Anzahl Wertepaare [max. 25]: ";:input n&

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

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

endwhile

imprimir
imprimir " Zona, en el y-Werte interpoliert voluntad debería:"
imprimir " Von: ";:input a!
imprimir " a: ";:input b!
imprimir " Schrittweite: ";:input s!
imprimir
imprimir " Berechnung starten con [Taste]!"
waitinput
cls
imprimir
imprimir " Ergebnis:"
imprimir "          x                        y    "
imprimir "-----------------------------------------------"
k&=0

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

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

endwhile

Naechstes:

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

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

        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

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

if a!<b!:a!=a!+s!:goto "Naechstes":endif

    Imprimir "OK.";:waitinput:End