Chapter 7
91
Sorting Based on Measured Result (Comparator Function)
Sample Program
7.
So
rting
Ba
se
d on
M
eas
ur
ed
Res
u
lt
(C
ompar
ator
F
u
n
c
tion
)
Example 7-1
Sorting using comparator function (comprtr.bas)
10
DIM Pri$[9],Sec$[9],Range$[9],Mode$[9],Aux$[9],Low_c_rej$[9]
,Img$[50]
20
REAL Nom,L_lim(1:3),U_lim(1:3),L_lim_sec,U_lim_sec
30
REAL Low_c_rej_lim,Pri_para,Sec_para
40
INTEGER I,Meas_stat,Comp,Bin(1:11),Ovld
50
!
60
ASSIGN @Agt4288a TO 717
70
!
80
Pri$="CP"
90
Sec$="D"
100
Range$="1NF"
110
!
120
Mode$="PCNT"
130
Nom=1.E-9
140
!-- [BIN1] --
150
L_lim(1)=-1.0
160
U_lim(1)=1.0
170
!-- [BIN2] --
180
L_lim(2)=-2.0
190
U_lim(2)=2.0
200
!-- [BIN3] --
210
L_lim(3)=-3.0
220
U_lim(3)=3.0
230
!-- [Sec] --
240
L_lim_sec=0.
250
U_lim_sec=.1
260
!
270
Aux$="ON"
280
Low_c_rej$="ON"
290
Low_c_rej_lim=10.0
300
!
310
OUTPUT @Agt4288a;":SYST:PRES"
320
!
330
! Measurement Condition Setting
340
!
350
OUTPUT @Agt4288a;":CALC1:FORM "&Pri$
360
OUTPUT @Agt4288a;":CALC2:FORM "&Sec$
370
OUTPUT @Agt4288a;":RANG "&Range$
380
!
390
! Comparator Setting
400
!
410
OUTPUT @Agt4288a;":CALC:COMP:MODE "&Mode$
420
OUTPUT @Agt4288a;":CALC:COMP:PRIM:NOM ";Nom
430
FOR I=1 TO 3
440
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&" ";L_lim(I)
;",";U_lim(I)
450
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT ON"
460
NEXT I
470
FOR I=4 TO 9
480
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT OFF"
490
NEXT I
500
OUTPUT @Agt4288a;":CALC:COMP:SEC:LIM ";L_lim_sec;",";U_lim_s
ec
510
OUTPUT @Agt4288a;":CALC:COMP:SEC:STAT ON"
520
!
Summary of Contents for 4288A
Page 18: ...16 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Page 212: ...210 AppendixA Manual Changes Manual Changes ...
Page 248: ...246 AppendixB Information for Replacing 4278A with 4288A Comparison of Interfaces ...
Page 258: ...256 AppendixC Status Reporting System Using the Status Reporting System ...
Page 288: ...286 Index Index ...