**TI92P*mainRlagrangehZ() Prgm Local l,pn wenn Ausgabe nicht auf das LCD passt "local l,pn" streichen und aus dem speicher im HOME bereich entnehmen. DelVar x ClrIO Disp "Lagrange Interpolation" Disp "mit ausgabe von Px" Disp "","","" Disp "Autor: Marc Niggemann" Disp "Homepage: www.m-niggemann.com" Disp "Version: 1.02 Jan 2002" Pause Local p,i,j,a,jn ClrIO Input "Anzahl der Wertepaare?",p ClrIO newMat(2,p)a For i,1,p,1 Input "x"&string(i)&"=?",j ja[1,i] Input "y"&string(i)&"=?",j ja[2,i] ClrIO EndFor Disp [["xi"]["yi"]] Disp "=" Disp a Pause ClrIO Local oben,oben1,n,unten,unten1 1oben1 1unten1 newMat(1,p)l For j,1,p,1 For i,1,p,1 If ji Then x-a[1,i]oben oben1*obenoben1 EndIf EndFor For i,1,p,1 If ji Then a[1,j]-a[1,i]unten unten1*untenunten1 EndIf EndFor Disp "L"&string(j-1) oben1/unten1n nl[1,j] Disp l[1,j] Pause ClrIO 1oben1 1unten1 EndFor pn wird erstellt, l0*y0+l1*y1... Local pnn 0pn For i,1,p,1 l[1,i]*a[2,i]pnn pn+pnnpn EndFor Disp "Pn(x)=",pn pnpx EndPrgm.*<