Specifications

Chapter 4 49
Preparing for Accurate Measurement
Performing Calibration
4. Preparing for Accurate
Measurement
1890 IF Kit=1 THEN
1900 OUTPUT @Agt4287a;":CORR1:CKIT DEF"
1910 ELSE
1920 OUTPUT @Agt4287a;":CORR1:CKIT USER"
1930 !
1940 ON ERROR GOTO Def_select
1950 Def_select:!
1960 PRINT "Select Definition Type"
1970 PRINT " 1: Fixed"
1980 PRINT " 2: Not Fixed"
1990 INPUT "Input 1 or 2",Inp_char$
2000 Def=IVAL(Inp_char$,10)
2010 IF Def<1 OR Def>2 THEN Def_select
2020 OFF ERROR
2030 SELECT Def
2040 CASE 1
2050 OUTPUT @Agt4287a;":CORR1:CKIT:LIST OFF"
2060 Nop=1
2070 CASE 2
2080 OUTPUT @Agt4287a;":CORR1:CKIT:LIST ON"
2090 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
2100 ENTER @Agt4287a;Nop
2110 END SELECT
2120 !
2130 ON ERROR GOTO Load_select
2140 Load_select:!
2150 PRINT "Select Load Definition Parameters"
2160 PRINT " 1: Rs and Ls"
2170 PRINT " 2: Ls and Q"
2180 PRINT " 3: Cp and D"
2190 INPUT "Input 1 to 3",Inp_char$
2200 Load_para=IVAL(Inp_char$,10)
2210 IF Load_para<1 OR Load_para>3 THEN Load_select
2220 OFF ERROR
2230 SELECT Load_para
2240 CASE 1
2250 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:FORM RL"
2260 Para1$="Rs"
2270 Para2$="Ls"
2280 CASE 2
2290 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:FORM LQF"
2300 Para1$="Ls"
2310 Para2$="Q"
2320 CASE 3
2330 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:FORM CDF"
2340 Para1$="Cp"
2350 Para2$="D"
2360 END SELECT
2370 !
2380 FOR Point=1 TO Nop
2390 IF Nop>1 THEN
2400 PRINT "[Point No."&VAL$(Point)&"]"
2410 END IF
2420 CALL Inp_data("Open(G) Value",Open1)
2430 CALL Inp_data("Open(Cp) Value",Open2)
2440 CALL Inp_data("Short(Rs) Value",Shor1)
2450 CALL Inp_data("Short(Ls) Value",Shor2)
2460 CALL Inp_data("Load("&Para1$&") Value",Load1)
2470 CALL Inp_data("Load("&Para2$&") Value",Load2)
2480 OUTPUT @Agt4287a;":CORR1:CKIT:STAN1:LIST ";Point;",";Open1;","
;Open2
2490 OUTPUT @Agt4287a;":CORR1:CKIT:STAN2:LIST ";Point;",";Shor1;","
;Shor2
2500 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:LIST ";Point;",";Load1;","