**TI92P*mainlj.Rnewton_䯥ZU() Prgm ClrIO Disp "Newton'sches Interpolationspolynom" Disp "fÜr äquidistante StÜtzstellen" Disp "","","" Disp "Autor: Marc Niggemann" Disp "Homepage: www.m-niggemann.com" Disp "Version: 1.13 Jan 2003" Pause ClrIO Local p,a,i,j Input "Anzahl der Wertepaare?",p ClrIO newMat(p,2)a For i,1,p,1 Input "x"&string(i)&"=?",j ja[i,1] Input "y"&string(i)&"=?",j ja[i,2] ClrIO EndFor Disp "xi yi" Disp a Pause ClrIO ©--------Differenzen Local h a[2,1]-a[1,1]h Disp "schrittweite",h Pause ©----------- dividierten Differenzen ClrIO Disp "dividierten Differenzen" Local r,rz,px,pxx,hil,indi 0pxx 0indi For l,1,p-1,1 newMat(p-l,1)r For i,1,p-l,1 If l=1 Then a[i+1,2]-a[i,2]r[i,1] Else rz[i+1,1]-rz[i,1]r[i,1] EndIf EndFor Disp string(l)&". rechte Spalte" Disp r rrz Pause 1hil For j,1,l,1 hil*(x-a[j,1])hil EndFor rz[1,1]/h^l*hil*(1/(l!))px Disp "Teil der Summe von Px",px Pause pxx+pxpxx EndFor Disp "y0 + die Summe ",a[1,2] Pause pxx+a[1,2]pxx ClrIO Disp "p(x)=" Disp pxx ©--------loeschung For l,1,p-1,1 DelVar #("l"&string(l)) EndFor EndPrgmäåÜ‘O