Specifications

Chapter 4 81
Preparation for Accurate Measurement
Calibration
4. Preparation for Accurate Measurement
840 REDIM Cal_b1(1:Nop_cal,1:2),Cal_b2(1:Nop_cal,1:2)
850 REDIM Cal_c1(1:Nop_cal,1:2),Cal_c2(1:Nop_cal,1:2)
860 !
870 OUTPUT @Agte4991a;"FORM:DATA ASC"
880 OUTPUT @Agte4991a;"DATA:CCO1?"
890 ENTER @Agte4991a;Cal_a1(*)
900 OUTPUT @Agte4991a;"DATA:CCO2?"
910 ENTER @Agte4991a;Cal_b1(*)
920 OUTPUT @Agte4991a;"DATA:CCO3?"
930 ENTER @Agte4991a;Cal_c1(*)
940 OUTPUT @Agte4991a;"DATA:CCO4?"
950 ENTER @Agte4991a;Cal_a2(*)
960 OUTPUT @Agte4991a;"DATA:CCO5?"
970 ENTER @Agte4991a;Cal_b2(*)
980 OUTPUT @Agte4991a;"DATA:CCO6?"
990 ENTER @Agte4991a;Cal_c2(*)
1000 !
1010 File$="CAL_COEF"
1020 Data_size=(Nop_cal*2*6)*8
1030 CREATE File$,Data_size
1040 ASSIGN @File TO File$;FORMAT OFF
1050 OUTPUT
@File;Cal_a1(*),Cal_b1(*),Cal_c1(*),Cal_a2(*),Cal_b2(*),Cal_c2(*)
1060 ASSIGN @File TO *
1070 !
1080 PRINT "Calibration Coefficient File Saving Complete"
1090 !
1100 Prog_end: END
1110 !
1120 ! Calibration Data Measurement Function
1130 !
1140 DEF FNCal(@Agte4991a,Standard$)
1150 DIM Inp_char$[9],Err_mes$[50]
1160 INTEGER Err_no
1170 !
1180 PRINT "Connect "&Standard$&" Standard to the DUT Port."
1190 INPUT "OK? [Y/N]",Inp_char$
1200 IF UPC$(Inp_char$)="Y" THEN
1210 OUTPUT @Agte4991a;"*CLS"
1220 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
1230 OUTPUT @Agte4991a;"STAT:OPER:NTR 1"
1240 OUTPUT @Agte4991a;"STAT:OPER:ENAB 1"
1250 OUTPUT @Agte4991a;"*SRE 128"
1260 ON INTR 7 GOTO Meas_end
1270 ENABLE INTR 7;2
1280 SELECT Standard$
1290 CASE "Open"
1300 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN1"
1310 CASE "Short"
1320 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN2"
1330 CASE "Load"
1340 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN3"
1350 CASE "Low-Loss C"
1360 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN4"
1370 END SELECT
1380 DISP "Now measuring..."
1390 Meas_wait: GOTO Meas_wait
1400 Meas_end: DISP