\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=VISRG
\FILE=VISRG.85P
Func:FnOff 
ClLCD
Disp "FIRST ENTER X AND Y"
Disp "VALUES USING THE"
Disp "''STAT'' EDITOR."
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
ClLCD
Disp "HIT ENTER TO SEE THE"
Disp "SCATTER PLOT"
Pause 
min(xStat)\->\xMin
If xMin>0
0\->\xMin
max(xStat)\->\xMax
If xMax<0
0\->\xMax
min(yStat)\->\yMin
If yMin>0
0\->\yMin
max(yStat)\->\yMax
If yMax<0
0\->\yMax
Scatter 
Pause 
Lbl W1
ClLCD
Disp "(1) Y = bx + a"
Disp "(2) Y = b(ln x)+a"
Disp "(3) Y = a(b^x)"
Disp "(4) Y = (a)(x^b)"
Disp "(5) Y = a1x\^2\+a2x+a3"
Disp "(6) Y=a1x^3+a2x^2+.."
Disp "(7) Y=a1x^4+a2x^3+.."
Input "ENTER 1,2,3,4,5,6,7",C
ClDrw
If C==1
Then
LinR 
"b x +a"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
ShwSt
Disp ""
Disp "Y = bx+a"
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
If C==2
Then
LnR 
"a+b(ln x)"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
ShwSt
Disp ""
Disp "Y = b(ln x)+a"
Disp "HIT ENTER TO CONINUE"
Pause 
Goto WW
End
If C==3
Then
ExpR 
"a(b^x)"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
ShwSt
Disp ""
Disp "Y = a(b^x)"
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
If C==4
Then
PwrR 
"a(x^b)"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
ShwSt
Disp ""
Disp "Y = a(x^b)"
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
If C==5
Then
P2Reg 
PRegC(1)\->\a1
PRegC(2)\->\a2
PRegC(3)\->\a3
"a1(x\^2\)+a2(x)+a3"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
Disp "Y=a1x\^2\+a2x+a3"
Disp ""
round(a1,4)\->\a1
round(a2,4)\->\a2
round(a3,4)\->\a3

Disp "a1 = "
Outpt(3,6,a1)
Disp "a2 = "
Outpt(4,6,a2)
Disp "a3 = "
Outpt(5,6,a3)
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
If C==6
Then
P3Reg 
PRegC(1)\->\a1
PRegC(2)\->\a2
PRegC(3)\->\a3
PRegC(4)\->\a4
"a1(x^3)+a2(x\^2\)+a3(x)+a4"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
Disp "Y=a1(x^3)+a2(x\^2\)+..."
Disp ""
round(a1,4)\->\a1
round(a2,4)\->\a2
round(a3,4)\->\a3
round(a4,4)\->\a4
Disp "a1 = "
Outpt(3,6,a1)
Disp "a2 = "
Outpt(4,6,a2)
Disp "a3 = "
Outpt(5,6,a3)
Disp "a4 = "
Outpt(6,6,a4)
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
If C==7
Then
P4Reg 
PRegC(1)\->\a1
PRegC(2)\->\a2
PRegC(3)\->\a3
PRegC(4)\->\a4
PRegC(5)\->\a5
"a1(x^4)+a2(x^3)+a3(x\^2\)+a4(x)+a5"\->\Y
\St>Eq\(Y,z1)
Scatter 
DrawF z1
Pause 
ClLCD
Disp "Y=a1(x^4)+a2(x^3)+.."
round(a1,4)\->\a1
round(a2,4)\->\a2
round(a3,4)\->\a3
round(a4,4)\->\a4
round(a5,4)\->\a5
Disp "a1 = "
Outpt(2,6,a1)
Disp "a2 = "
Outpt(3,6,a2)
Disp "a3 = "
Outpt(4,6,a3)
Disp "a4 = "
Outpt(5,6,a4)
Disp "a5 = "
Outpt(6,6,a5)
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
End
Lbl WW
ClLCD
Disp "(1) TRY ANOTHER"
Disp "    REGRESSION MODEL"
Disp ""
Disp "(2) PREDICT Y VALUES"
Disp ""
Disp "(3) QUIT"
Disp ""
Input "ENTER 1,2,3  ",AN
If AN==3
Goto ZZ
If AN==1
Goto W1
ClLCD
Disp "ENTER x AND PREDICT Y"
Disp ""
Prompt X
evalF(z1,x,X)\->\Y2
round(Y2,4)\->\Y2
Disp ""
Disp "Y = "
Outpt(5,5,Y2)
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto WW
Lbl ZZ
ClLCD
\STOP\