\start83\
\comment=Program file dated 10/07/97, 14:24
\name=VISREG
\file=J:\VISREG.AS3
Fix 3
ClrHome
Disp "FIRST ENTER X"
Disp "VALUES IN L\1\"
Disp "THEN ENTER Y"
Disp "VALUES IN L\2\"
Disp ""
Disp "USING THE STAT"
Disp "EDITOR"
Pause 
ClrHome
Disp ""
Disp ""
Disp "HIT ENTER TO SEE"
Disp "SCATTER PLOT"
Pause 
ClrHome
FnOff 
PlotsOff 
Plot1(Scatter,L\1\,L\2\,\box\)
ZoomStat
Pause 
ClrHome
Lbl 8
FnOff 
PlotsOff 
Plot1(Scatter,L\1\,L\2\,\box\)
ClrHome
Menu("ENTER CHOICE","LinReg(ax+b) ",1,"QuadReg ",2,"CubicReg ",3,"QuartReg ",4,"ExpReg ",5,"PwrReg ",6,"LnReg ",7)

Lbl 1
ClrHome
LinReg(ax+b) L\1\,L\2\
Disp "LinReg(ax+b) "
Output(3,1,"a = ")
Output(3,5,a)
Output(4,1,"b = ")
Output(4,5,b)
Output(5,1,"r = ")
Output(5,5,r)

Output(7,1,"HIT ENTER TO")
Output(8,1,"SEE PLOT")
Pause 
ClrHome

"aX+b"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 2
ClrHome
QuadReg L\1\,L\2\
Disp "QuadReg "
Disp "aX\^2\+bX+c"
Output(3,1,"a = ")
Output(3,5,a)
Output(4,1,"b = ")
Output(4,5,b)
Output(5,1,"c = ")
Output(5,5,c)
Output(7,1,"HIT ENTER")
Output(8,1,"TO SEE PLOT")
Pause 
ClrHome
"aX\^2\+bX+c"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 3
ClrHome
CubicReg L\1\,L\2\
Disp "CubicReg "
Disp "aX\^3\+bX\^2\+cX+d"
Output(3,1,"a = ")
Output(3,5,a)
Output(4,1,"b = ")
Output(4,5,b)
Output(5,1,"c = ")
Output(5,5,c)
Output(6,1,"d = ")
Output(6,5,d)
Output(8,1,"HIT ENTER")
Pause 
ClrHome
"aX\^3\+bX\^2\+cX+d"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 4
ClrHome
QuartReg L\1\,L\2\

Disp "aX^4+bX\^3\+cX\^2\+dX"
Disp "+e"
Output(3,1,"a = ")
Output(3,5,a)
Output(4,1,"b = ")
Output(4,5,b)
Output(5,1,"c = ")
Output(5,5,c)
Output(6,1,"d = ")
Output(6,5,d)
Output(7,1,"e = ")
Output(7,5,e)
Output(8,1,"HIT ENTER")
Pause 
ClrHome
"aX^4+bX\^3\+cX\^2\+dX+e"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 5
ClrHome
ExpReg L\1\,L\2\
Disp "ExpReg "
Disp "a*b^X"
Disp ""
Output(4,1,"a = ")
Output(4,5,a)
Output(5,1,"b = ")
Output(5,5,b)
Output(6,1,"r = ")
Output(6,5,r)
Output(7,1,"HIT ENTER TO")
Output(8,1,"SEE PLOT")
Pause 
ClrHome
"a*b^X"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 6
ClrHome
PwrReg L\1\,L\2\
Disp "PwrReg "
Disp "a+X^b"
Disp ""
Output(4,1,"a = ")
Output(4,5,a)
Output(5,1,"b = ")
Output(5,5,b)
Output(6,1,"r = ")
Output(6,5,r)
Output(7,1,"HIT ENTER TO")
Output(8,1,"SEE PLOT")
Pause 
ClrHome
"a*X^b"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 7
ClrHome
LnReg L\1\,L\2\
Disp "LnReg "
Disp "a+b*ln(X"
Disp ""
Output(4,1,"a = ")
Output(4,5,a)
Output(5,1,"b = ")
Output(5,5,b)
Output(6,1,"r = ")
Output(6,5,r)
Output(7,1,"HIT ENTER TO")
Output(8,1,"SEE PLOT")
Pause 
ClrHome
"a+b*ln(X"\->\Y\1\
ZoomStat
Pause 
ClrHome
Goto 9
Lbl 9
ClrHome
Disp "PLEASE CHOOSE"
Disp ""
Disp "(1) RUN AGAIN"
Disp "(2) QUIT"
Disp ""
Input "ENTER 1 OR 2 ",R
If R=1
Goto 8
ClrHome
Float
\stop83\