%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1181
File Name:LOWG100
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"Choose direction"
"\Vertical (1)"
"\Horizontal (2)"
?\->X
\ClrText
0\->F
"Perf\orm a new"
"calibration each"
"time you use the"
"Low g Accel."
\Locate 16,7,"[EXE]"\Disp\ClrText
1\->F
"Hold Accel. still"
"\@26 so that the arrow"
"points downward"
\Locate 16,7,"[EXE]"\Disp{0}\->\List 6
\Send(\List 6)
{2,1}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{0,0}\->\List 1
{0,0}\->\List 2
\ClrText
"Press [TRIGGER] when"
"EA display stabilises"
\Locate 16,7,"[EXE]"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(R)
R\->\List 1[1]
\ClrText
"Now rotate the accel"
"\and hold still so"
"arrow points up."
\Locate 16,7,"[EXE]"\Disp\ClrText
"Press [TRIGGER] when"
"EA display stabilises"
\Locate 16,7,"[EXE]"
{3,.25,1,0}\->\List 6
\Send(\List 6)\Disp\Receive(R)
R\->\List 1[2]
\ClrText
\If X=1
\Then 0\->\List 2[1]:19.6\->\List 2[2]
\IfEnd
\If X=2
\Then -9.8\->\List 2[1]:9.8\->\List 2[2]
\IfEnd
\LinearReg \List1,\List2
\ClrText
\Ra\->M
\Rb\->C
\Lbl 1
\ClrText
"CALIBRATION IS"
"COMPLETE."
\Locate 16,7,"[EXE]"\Disp\ClrText
"Sampling Interval"
"(0.001s - 16000s)"
?\->I
\ClrText
"# of samples"
"(1-255)"
?\->N
\ClrText
" "
" "
"  Setting EA\@2D100..."
{0}\->\List 6
\Send(\List 6)
{1,1,10}\->\List 6
\Send(\List 6)
{4,1,1,0,C,M}\->\List 6
\Send(\List 6)
{3,I,N,0,0}\->\List 6
\ClrText
" "
" "
"   Sampling start?"
" "
"     Press:[EXE]"
" "\Disp\Send(\List 6)
\ClrText
" "
" "
"When sampling is done, press [EXE] key."
" "\Disp\ClrText
"receiving data..."
" Time \-> \List 1"
\Seq(IX,X,0,N-1,1)\->\List 1
" Acc low\@2DG \-> \List 2"
\Receive(\List 2)
\FuncOff
\S-WindAuto
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot
\Cls
\DrawStat
\Text 1,1,"Acc low\@2DG(m\slashs\x^2) VS Time(s)"\Disp"END"
%End