%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:ACCELE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Now Drawing..."
\ClrGraph
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 4,1,\Dot,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,115,"A-T"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:74
File Name:DISTANCE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Now Drawing..."
\ClrGraph
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Dot,\Green 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,115,"D-T"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:208
File Name:PHOTO-G
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
"Number of samples"?\->N
0.05\->W
{0}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{3,0.01,N,1,0,0,0,2,1,0}\->\List 6
"Are you ready?"\Disp\Send(\List 6)
" "
"\If sampling finished,Press [EXE]"\Disp\Receive(\List 1)
" "
\Seq(W*X-(.5W),X,0,N-1,1)\->\List 2
\Prog "PG-CAL"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:VELOCITY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Now Drawing..."
\ClrGraph
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 3,1,\Dot,\Orange 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,111,"V-T"
\Text 1,1,"LINER REG:[1]"
\Text 63,127," "
\While 1
\Getkey
\If \Ans=31
\Then \Break
\IfEnd
\If \Ans=72
\Then \LinearReg \List 1,\List 3
1
\Text 1,1,"NOW REGRESSION"
\Graph Y=\RaX+\Rb
\Text 1,1,"NEXT PAGE:[EXE] "\Disp\LinearReg \List 1,\List 3\Disp\Break
\IfEnd
\WhileEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:338
File Name:PG-GPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
-1\->A
\ClrText
\Locate 1,1,"####[GRAPH-MENU]####"
\Locate 1,3,"  (1):[Distance]"
\Locate 1,4,"  (2):[Velocity]"
\Locate 1,5,"  (3):[Acceleration]"
\Locate 1,6,"  (4):[1,2 \and 3]
\Locate 1,7,"  (0):[END]"
\While 1
\Getkey
\Ans=72\=>1\->A
\Ans=62\=>2\->A
\Ans=52\=>3\->A
\Ans=73\=>4\->A
\Ans=71\=>0\->A
-1\<>A\=>\Break
\WhileEnd
\ClrText
\If A=1
\Then \Prog "DISTANCE"
\Goto0
\IfEnd
\If A=2
\Then \Prog "VELOCITY"
\Goto0
\IfEnd
\If A=3
\Then \Prog "ACCELE"
\Goto0
\IfEnd
\If A=4
\Then \Prog "GRAPHALL"
\Goto0
\IfEnd
"END"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:98
File Name:GRAPHALL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Now Drawing..."
\ClrGraph
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Dot,\Green 
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,1,\Dot,\Orange 
\S-Gph3 \DrawOn,\Scatter,\List 1,\List 4,1,\Dot,\Blue 
\DrawStat\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:301
File Name:PG-CAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Now Calculating..."
" "
" Distance\->\List 2.."
0.05\->W
\Dim \List 1\->N
\Seq(W*X-(.5W),X,0,N-1,1)\->\List 2
" Velocity\->\List 3.."
\Seq(X,X,1,N,1)\->\List 3
\For 2\->I \To N
((\List 2[I]-\List 2[I-1])/(\List 1[I]-\List 1[I-1]))\->\List 3[I]
\Next 
" Acceleration\->\List 4.."
\Seq(X,X,1,N,1)\->\List 4
\For 1\->I \To N-1
((\List 3[I+1]-\List 3[I])/(\List 1[I+1]-\List 1[I]))\->\List 4[I]
\Next 
\List 4[6]\->\List 4[7]
\Prog "PG-GPH"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:210
File Name:PG-TIME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
"Distance (m)"?\->D
{0}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{3,0.01,2,1,0,0,0,2,1,0}\->\List 6
"Are you ready?"\Disp\Send(\List 6)
" "
"\If sampling finished,Press [EXE]"\Disp\Receive(\List 1)
" "
\ClrText
"TIME  -->"
\Locate 15,1,\List 1[2]\Disp"Velocity -->":T/D\->V

%End