- #1

C268

- 26

- 0

This code is for the TI-89:

interpol()

Prgm

getMode("Exact/Approx")->oldmode

setMode("Exact/Approx","APPROXIMATE")

ClrIO

DelVar e

Disp "Where knowns are a,b,c,d,f"

Disp "This solves for e:"

Disp " a d"," b e"," c f"

Disp "Press ENTER to continue"

Pause

Prompt a,b,c,d,f

f-(c-b)*(d-f)/(a-c)->e

Disp "e is: ",e

setMode("Exact/Approx",oldmode)

EndPrgm