Specifications

160 Chapter 7
Measurement Result Processing
Using Marker Function
Example 7-3 Execution of the limit test using a marker (HTBasic)
10 DIM Mkr1_stim(8),Mkr1_upp(8),Mkr1_low(8),Mkr1_meas(8)
20 DIM Ref_judge$[4],Mkr1_judge$(8)[4],All_judge$[4]
30 REAL Ref_stim,Ref_upp,Ref_low,Ref_meas
40 INTEGER Trc1,Trc2,Mkr
50 !
60 CLEAR SCREEN
70 ASSIGN @Agte4991a TO 717
80 !
90 Trc1=1
100 Trc2=2
110 !
120 Ref_stim=1.E+6
130 Mkr1_stim(1)=5.0E+6
140 Mkr1_stim(2)=1.0E+7
150 Mkr1_stim(3)=5.0E+7
160 Mkr1_stim(4)=1.0E+8
170 Mkr1_stim(5)=5.0E+8
180 Mkr1_stim(6)=1.0E+9
190 Mkr1_stim(7)=2.0E+9
200 Mkr1_stim(8)=3.0E+9
210 !
220 Ref_upp=80
230 Mkr1_upp(1)=80
240 Mkr1_upp(2)=70
250 Mkr1_upp(3)=70
260 Mkr1_upp(4)=70
270 Mkr1_upp(5)=70
280 Mkr1_upp(6)=80
290 Mkr1_upp(7)=80
300 Mkr1_upp(8)=90
310 !
320 Ref_low=20
330 Mkr1_low(1)=20
340 Mkr1_low(2)=30
350 Mkr1_low(3)=30
360 Mkr1_low(4)=30
370 Mkr1_low(5)=30
380 Mkr1_low(6)=20
390 Mkr1_low(7)=20
400 Mkr1_low(8)=10
410 !
420 ! E4991A settings
430 !
440 OUTPUT @Agte4991a;"SYST:PRES"
450 !
460 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&" ON"
470 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc2)&" OFF"
480 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":FORM Z"
490 !
500 OUTPUT @Agte4991a;"SWE:TYPE LOG"
510 !
520 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:REF ON"
530 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:REF:FUNC:DOM:LIM
ON"
540 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":MARK:REF:X