Specifications

46 Chapter 4
Preparing for Accurate Measurement
Performing Calibration
Example 4-1 Calibration (calib.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,Load_l_lim,Load_u_lim
70 INTEGER Scode,Nop,Result
80 !
90 CLEAR SCREEN
100 ASSIGN @Agt4287a TO 717
110 Scode=7
120 File$="CAL_DATA"
130 OUTPUT @Agt4287a;":SYST:PRES"
140 OUTPUT @Agt4287a;":FORM ASC"
150 !----------------------------------------
160 ! Measurement Point Setup Table Setting
170 !----------------------------------------
180 OUTPUT @Agt4287a;":SOUR:LIST:TABL 1"
190 OUTPUT @Agt4287a;":SOUR:UNIT DBM"
200 OUTPUT @Agt4287a;":SOUR:LIST 3,";
210 OUTPUT @Agt4287a;"10E6,4,0,";
220 OUTPUT @Agt4287a;"100E6,4,0,";
230 OUTPUT @Agt4287a;"1E9,4,0"
240 !
250 PRINT "## Calibration Kit Setting ##"
260 CALL Set_cal_kit(@Agt4287a)
270 !
280 PRINT "## Rdc Limit Setting ##"
290 CALL Inp_data("Open Lower Limit",Open_l_lim)
300 CALL Inp_data("Short Upper Limit",Short_u_lim)
310 CALL Inp_data("Load Lower Limit",Load_l_lim)
320 CALL Inp_data("Load Upper Limit",Load_u_lim)
330 !
340 PRINT "## Measurement ##"
350 Result=FNCal(@Agt4287a,Scode,"Open",Open_l_lim,1.E+9)
360 IF Result<>0 THEN Prog_end
370 !
380 Result=FNCal(@Agt4287a,Scode,"Short",-1.E+9,Short_u_lim)
390 IF Result<>0 THEN Prog_end
400 !
410 Result=FNCal(@Agt4287a,Scode,"Load",Load_l_lim,Load_u_lim)
420 IF Result<>0 THEN Prog_end
430 !
440 PRINT "Do you want to measure Low Loss Capacitor"
450 INPUT "[Y]es/[N]o",Inp_char$
460 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN
470 Result=FNCal(@Agt4287a,Scode,"Low Loss C",-1.E+9,1.E+9)
480 IF Result<>0 THEN Prog_end
490 END IF
500 !
510 OUTPUT @Agt4287a;":CORR1:COLL:SAVE"
520 OUTPUT @Agt4287a;"*OPC?"
530 ENTER @Agt4287a;Buff$
540 !----------------------------------------
550 ! Calibration Coefficient Array Reading
560 !----------------------------------------
570 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
580 ENTER @Agt4287a;Nop
590 REDIM Cal_coef_a1(1:Nop,1:2),Cal_coef_a2(1:Nop,1:2)
600 REDIM Cal_coef_b1(1:Nop,1:2),Cal_coef_b2(1:Nop,1:2)
610 REDIM Cal_coef_c1(1:Nop,1:2),Cal_coef_c2(1:Nop,1:2)