%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:121
File Name:RESIDUAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\List1: x"
"\List2: y"
"\List3: \Eoy"
"\List4: y-\Eoy"\Disp\LinearReg \List 1,\List 2,1
\Ra\List 1+\Rb\->\List 3:\List 2-\List 3\->\List 4
\S-WindAuto:\S-Gph1 \DrawOff:\S-Gph3 \DrawOff
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 4,1,\Square
\DrawStat\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1069
File Name:MAV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Lists:"
"Time: 1"
"Data: 2"
"EXE to start"\Disp\ClrText
\Dim \List 2\->N
\List 1[2]-\List 1[1]\->W
\For 3\->I \To N
\If \List 1[I]-\List 1[I-1]\<>W
\Then "ERROR!"
"Time values"
"must go up"
"unif\ormly"
\Stop
\IfEnd
\Next 
"Points"?\->P
"Calc avgs..."
.5\->E
\Int (\Frac (P/2)+.5)\<>0\=>1\->E
\Int (P/2)\->L
1+L\->F
N-L\->Q
2L\->L
\Seq(0,X,1,N,1)\->\List 3
\List 3\->\List 4
\List 3\->\List 5
\List 3\->\List 6
\For 1\->I \To (N-L)
E(\List 2[I]+\List 2[I+L])\->S
\For (I+1)\->J \To (I+L-1)
\List 2[J]+S\->S
\Next 
I+(L/2)\->K
S/P\->\List 3[K]
\List 2[K]-\List 3[K]\->\List 4[K]
\Next 
\For F\->I \To Q
1\->\List 5[I]
\Next 
\S-WindMan
\ViewWindow \Min(\List 1),\Max(\List 1),(\Xmax-\Xmin)/4,\Min(\List 2),\Max(\List 2),(\Ymax-\Ymin)/4
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,\List 5,\Square
\S-Gph3 \DrawOn,\Linear,\List 1,\List 3,\List 5
\DrawStat\Disp\LinearReg \List 1,\List 3,\List 5\Disp\Ra\->A:\Rb\->B:\Cor\->R
\ClrText
"Calc rsds..."
\For 1\->J \To N
0\->T:0\->S
F+\Int (P\Frac ((J+P-F)/P)+.5)\->M
\For M\->I \To Q \Step P
\List 4[I]+S\->S
1+T\->T
\Next 
S/T\->\List 5[J]
\List 2[J]-\List 5[J]\->\List 6[J]
\Next 
\Do
\ClrText
"Predict vals"
"Yes: 1 [EXE]"
" No: 2 [EXE]"?\->E
\If E=1
\Then \ClrText
"x value"?\->X
X\->V
(X-\List 1[1])/W+1\->X
\If \Int X\<>X
\Then \Int (X+.5)\->X
W(X-1)+\List 1[1]\->V
"Using x="
V\Disp\IfEnd
\RaV+\Rb\->Y
"y="
Y\Disp\While X\<=0:X+P\->X:\WhileEnd
\While X>P:X-P\->X:\WhileEnd
"Seas Comp ="
\List 5[X]\Disp"Future Val="
Y+\List 5[X]\Disp\IfEnd
\LpWhile E=1
\S-WindAuto
\ClrText
"Lists now contain:"\Disp"3:Mov Avs"
"4:Residuals"
"5:Av rsdls"
"6:Seas adj"\Disp\ClrText
"\Done"
"Warning:"
"Use y=ax+b"
"from this"
"program ONLY"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:223
File Name:MEDIAN
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"median using"
"linear int-"
"erpolation"
"tot freq (n)"?\->N
\ClrText
"position"
"of median is"
(N+1)/2\Disp\ClrText
"med class:"
"lower bound"?\->L
"upper bound"?\->U
"frequency"?\->F
"cum freq"?\->C
\ClrText
"median is"
L+(U-L)*((N+1)/2-C+F)/F\->M

%End