Menu "Lagrange Polynomial","Interpolate",I,"Substitution",S //Error
Lbl I
1->\r
Goto Z
Lbl S
2->\r
Goto Z
Lbl Z
If \r=1
Then
Dim List 1->A
Dim List 2->B
"x@E769"->List 1[0] _linenums:0'>ClrText0->A~Z0->\r<strong class='bbc'>Menu "Lagrange Polynomial","Interpolate",I,"Substitution",S</strong> //Error Lbl I1->\rGoto ZLbl S2->\rGoto ZLbl ZIf \r=1ThenDim List 1->ADim List 2->B"x@E769"->List 1[0]:"f(x@E769)"->List 2[0]:"P(x)"->List 3[0]If A<>BThen"Error:""Dimension Of List 1""& List 2 Must Be Same"ReturnIfEndLbl 0"Input Degree"?->NIf A<=NThenClrText"Error:""Degree < Dim List 1 Or List 2"Goto 0IfEndN+1->Dim List 23For 1->I To N+11->Dim List 261->List 26[1]For 1->J To N+1If J<>IThen1->Dim List 251->List 25[1]-List 1[J]->List 25[2]'PolyMultDim List 25->UDim List 26->VU+V-1->WW->Dim List 24For 1->K To W'max(1,K+1-V)If 1>=(K+1-V)Then1->SElseK+1-V->SIfEnd'min(K,U)If K<=UThenK->EElseU->EIfEnd0->PFor S->Q To EP+(List 25[Q]*List 26[K+1-Q])->PNextP->List 24[K]NextList 24->List 26List 1[I]-List 1[J]->RList 26/R->List 26IfEndNext"L@E769(x)="_List 26_List 23+(List 2[I]*List 26)->List 23NextList 23->List 3"P(X)="_List 3_ClrList23ClrList24ClrList25ClrList26ClrListAns"---------------------""Goto MENU\\STAT For See Calculations"_IfEndIf \r=2Then"Input X"?->XDim List 3->LIf X<>0Then0->DFor 1->M To LList 3[M]X^(L-M)+D->DNextD_ElseList 3[L]_IfEndIfEnd
i get the program here: http://www.casiocalc...?cat2disp=FS.FX
