%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:588
File Name:BOUND
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
150\->N
{0}\->\List 6
\Send(\List 6)
{1,4,2}\->\List 6
\Send(\List 6)
{3,0.02,N,1}\->\List 6
\Send(\List 6)
\ClrText
" "
"    SET UP OK!"
" "
" LET'S DATA GET!!"\Disp\ClrText
" "
" "
" "
" NOW DATA RECEIVING"
\Receive(\List 1)
\Receive(\List 2)
\Max(\List 2)-\List 2\->\List 2
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Orange \Text 2,10,"HEIGHT"
\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 
\List 6-\List 6[1]\->\List 6
\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"END"
%End