ANALYZE

In case it doesn't show correctly, "® " is the STO key symbol, "¹" is the not equal to symbol, and "d" is the greek letter delta.

Variables Changed:

Name	Type	Arbitrary Name?
XDATA	LIST	Yes
YDATA	LIST	Yes
xMin	REAL	No
xMax	REAL	No
xScl	REAL	No
yMin	REAL	No
yMax	REAL	No
d	REAL	YES
x	REAL	Yes
a	REAL	No
b	REAL	No
BFS	EQU	Yes

Color changes are only to visually separate the different parts of the program, they have no meaning to the TI-85.

Lbl MAIN
if (dimL XDATA¹0)
Then
ClDrw
(max(XDATA)-min(XDATA))/10+d®xScl
(max(YDATA)-min(YDATA))/10+d®yScl
max(XDATA)+xScl®xMax
min(XDATA)-xScl®xMin
max(YDATA)+yScl®yMax
min(YDATA)-yScl®yMin
xyline XDATA,YDATA
Else
ClLCD
Disp "No Data"
Menu(1,"Ins",INS,4,"QUIT",QUIT)
End


Lbl MAINMENU
Menu(1,"Ins",INS,2,"DEL",DEL,3,"Sort",SORT,4,"QUIT",QUIT,5,"MORE",MORE1)
Lbl MORE1
Menu(1,"Clear",CLEAR,2,"Stats",STATS,3,"Scat",SCAT,4,"Full",FULL,5,"MORE",MAINMENU)


Lbl INS
If (dimL XDATA)¹0
Then
Disp "Last X:",XDATA(dimL XDATA)
Disp "Last Y:",YDATA(dimL YDATA)
End
Input "Next X:",x
x®YDATA((dimL YDATA)+1)
Goto MAIN


Lbl DEL
(dimL XDATA)-1®dimL XDATA
(dimL YDATA)-1®dimL YDATA
Goto MAIN


Lbl CLEAR
0®dimL XDATA
0®dimL YDATA
GOTO MAIN


Lbl SORT
Menu(1,"Sort x",XSORT,2,"Sort y",YSORT,5,"EXIT",MAIN)
Lbl XSORT
Sortx XDATA,YDATA
Goto MAIN
Lbl YSORT
Sorty XDATA,YDATA
Goto MAIN


Lbl STATS
Menu(1,"LinR",RLIN,2,"LnR",RLN,3,"ExpR",REXP,4,"ShwSt",SHOW,5,"MORE",MORE2)
Lbl MORE2
Menu(1,"PwrR,RPWR,4,"EXIT",MAIN,5,"MORE",STATS)
Lbl RLIN
LinR XDATA,YDATA
"y=bx+a"®BFS
DrawF b*x+a
Pause
Goto SHOW
Lbl RLN
LnR XDATA,YDATA
"y=b ln x+a"®BFS
DrawF b ln x+a
Pause
Goto SHOW
Lbl REXP
ExpR XDATA,YDATA
"y=a*b^x"®BFS
DrawF a*b^x
Pause
GOTO SHOW
Lbl RPWR
PwrR XDATA,YDATA
"y=A*x^b"®BFS
DrawF a*x^b
Pause
Goto SHOW


Lbl SHOW
ClLCD
ShwSt
Disp BFS
Pause
ClLCD
Disp "xMin",min(XDATA)
Disp "xMax",max(XDATA)
Pause
ClLCD
Disp ""
Disp "yMin",min(YDATA)
Disp "yMax",max(YDATA)
Pause
ClLCD
Goto MAIN


Lbl SCAT
ClDrw
Scatter XDATA,YDATA
Pause
Goto MAINMENU


Lbl FULL
Pause
Goto MAINMENU


Lbl QUIT
ClLCD
Stop