Specifications

60 Chapter 4
Preparing for Accurate Measurement
Running the Compensation Process
Example 4-2 Compensation (compen.bas)
10 DIM Buff$[9],File$[20],Inp_char$[9]
20 DIM Cal_coef_a1(1:32,1:2),Cal_coef_a2(1:32,1:2)
30 DIM Cal_coef_b1(1:32,1:2),Cal_coef_b2(1:32,1:2)
40 DIM Cal_coef_c1(1:32,1:2),Cal_coef_c2(1:32,1:2)
50 DIM Cal_coef_dc(1:3)
60 REAL Open_l_lim,Short_u_lim
70 INTEGER Scode,Nop,Result,I
80 !
90 CLEAR SCREEN
100 ASSIGN @Agt4287a TO 717
110 Scode=7
120 File$="CAL_DATA"
130 Open_l_lim=100
140 Short_u_lim=25
150 OUTPUT @Agt4287a;":SYST:PRES"
160 OUTPUT @Agt4287a;":FORM ASC"
170 !----------------------------------------
180 ! Measurement Point Setup Table Setting
190 !----------------------------------------
200 OUTPUT @Agt4287a;":SOUR:LIST:TABL 1"
210 OUTPUT @Agt4287a;":SOUR:UNIT DBM"
220 OUTPUT @Agt4287a;":SOUR:LIST 3,";
230 OUTPUT @Agt4287a;"10E6,4,0,";
240 OUTPUT @Agt4287a;"100E6,4,0,";
250 OUTPUT @Agt4287a;"1E9,4,0"
260 !----------------------------------------
270 ! Dummy Measurement
280 !----------------------------------------
290 OUTPUT @Agt4287a;":ABOR"
300 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
310 OUTPUT @Agt4287a;":INIT:CONT ON"
320 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
330 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
340 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
350 OUTPUT @Agt4287a;"*SRE 128"
360 FOR I=1 TO 3
370 OUTPUT @Agt4287a;"*CLS"
380 OUTPUT @Agt4287a;"*OPC?"
390 ENTER @Agt4287a;Buff$
400 ON INTR Scode GOTO Dummy_meas_end
410 ENABLE INTR Scode;2
420 OUTPUT @Agt4287a;":CORR1:COLL STAN"&VAL$(I)
430 OUTPUT @Agt4287a;":TRIG"
440 Dummy_meas_wait: GOTO Dummy_meas_wait
450 Dummy_meas_end: OFF INTR Scode
460 NEXT I
470 OUTPUT @Agt4287a;":CORR1:COLL:SAVE"
480 OUTPUT @Agt4287a;"*OPC?"
490 ENTER @Agt4287a;Buff$
500 OUTPUT @Agt4287a;":TRIG:SOUR INT"
510 !----------------------------------------
520 ! Download Calibration Coeficient
530 !----------------------------------------
540 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
550 ENTER @Agt4287a;Nop
560 REDIM Cal_coef_a1(1:Nop,1:2),Cal_coef_a2(1:Nop,1:2)
570 REDIM Cal_coef_b1(1:Nop,1:2),Cal_coef_b2(1:Nop,1:2)
580 REDIM Cal_coef_c1(1:Nop,1:2),Cal_coef_c2(1:Nop,1:2)
590 !
600 PRINT "Downloading Calibration Coeficient..."
610 !