%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:617
File Name:CAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
75\->N
{0}\->\List 6
\Send(\List 6)
{1,4,1}\->\List 6
\Send(\List 6)
{3,0.03,N,1}\->\List 6
\Send(\List 6)
" "
"   CDA SET UP OK!"
" "
" LET'S GET DATA !!"\Disp\ClrText
" "
" "
" "
"  NOW DATA RECEIVING"
\Receive(\List 1)
\Receive(\List 2)
\ClrText
" "
" "
" "
"    RECEIVE END!!"
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Orange \Text 2,10,"DISTANCE"
\Orange \Text 57,105,"TIME"\Disp\Text 45,75,"LOWER BOUND?"
\Plot \DispX\->A
\Vertical A
\Text 45,75,"UPPER BOUND?"
\Plot \DispX\->B
\Vertical B
\Seq(0,X,1,N,1)\->\List 3
\List 3\->\List 4
\If A>B
\Then B\->C:A\->B:C\->A
\IfEnd
1\->J
\For 1\->I \To N
\If \List 1[I]\>=A\ And \List 1[I]\<=B
\Then \List 1[I]\->\List 3[J]
\List 2[I]\->\List 4[J]
J+1\->J
\IfEnd
\Next 
\Seq(0,X,1,J-1,1)\->\List 5
\List 5\->\List 6
\For 1\->I \To J-1
\List 3[I]\->\List 5[I]
\List 4[I]\->\List 6[I]
\Next 
\S-Gph1 \DrawOn,\Scatter,\List5,\List6,1,\Square
\DrawStat\Disp\QuadReg \List5,\List6,1\Disp\S-Gph2 \DrawOn,\Quad,\List5,\List6,1,\Orange 
\DrawStat\Disp"\Ra="
\Ra\Disp"ACCELERATION="
2*\Ra
%End