ANALYZE

A data collection and analyses program for the TI-85
Distribute and modify freely.

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:
NameTypeArbitrary Name?
XDATALISTYes
YDATALISTYes
xMinREALNo
xMaxREALNo
xSclREALNo
yMinREALNo
yMaxREALNo
dREALYES
xREALYes
aREALNo
bREALNo
BFSEQUYes
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 XDATA0)
Then
ClDrw
(max(XDATA)-min(XDATA))/10+dxScl
(max(YDATA)-min(YDATA))/10+dyScl
max(XDATA)+xSclxMax
min(XDATA)-xSclxMin
max(YDATA)+ySclyMax
min(YDATA)-ySclyMin
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
xYDATA((dimL YDATA)+1)
Goto MAIN


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


Lbl CLEAR
0dimL XDATA
0dimL 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