Title : Linear-Interpolation Programmer: Anthony J Doggett Calculator: TI-83 Date : Nov 96 Function : Solves equasions, showing the working as it does so (and recording it in a table for afterwards) ClrHome Disp "Linear","Interpolation" Pause Str3 "New Equ" -> Str9 ("->" = "Sto>" button) prgmZASK (This is another of my programs!) If Q Input "Formula (Use X)",Str3 Input "Left ",A Input "Right ",B 1 -> P String>Equ(Str3,Y3) ("String>Equ" is one command in the catelogue. "Y3" is a function variable) DelVar _LIA (I use "_" as the small L list sign) DelVar _LIB DelVar _LIC DelVar _LID Lbl 0 A -> _LIA(P) B -> _LIB(P) Y3(A) -> C (This is the function variable "Y3" again) Y3(B) -> D C -> _LIC(P) D -> _LID(P) (BC-AD)/(C-D) -> E (Multiplication going on here) E -> _LIE(P) ClrHome Disp A,C,"",B,D Pause If Y3(E) < 0 :Then E -> A : 1 -> L :Else E -> B : 0 -> L :End P+1 -> P "Repeat?" -> Str9 prgmZASK If Q:Then "Dont change val?" -> Str9 prgmZASK If Q Goto 0 If not(L):Then Input "New A ",A Else Input "New B ",B End Goto 0 End Lbl FF SetUpEditor _LIA,_LIB,_LIC,_LID,_LIE Disp "Use Stats Editor"