Specifications

48 Chapter 4
Preparing for Accurate Measurement
Performing Calibration
1250 OUTPUT @Agt4287a;":CORR1:COLL STAN1"
1260 CASE "Short"
1270 OUTPUT @Agt4287a;":CORR1:COLL STAN2"
1280 CASE "Load"
1290 OUTPUT @Agt4287a;":CORR1:COLL STAN3"
1300 CASE "Low Loss C"
1310 OUTPUT @Agt4287a;":CORR1:COLL STAN4"
1320 END SELECT
1330 OUTPUT @Agt4287a;":TRIG"
1340 PRINT "Now measuring..."
1350 Meas_wait: GOTO Meas_wait
1360 Meas_end: OFF INTR Scode
1370 Err_flag=0
1380 SELECT Standard$
1390 CASE "Open"
1400 OUTPUT @Agt4287a;":DATA:RCAD1?"
1410 ENTER @Agt4287a;Rdc
1420 PRINT "Rdc =";ABS(Rdc)
1430 IF ABS(Rdc)<L_lim THEN Err_flag=1
1440 CASE "Short"
1450 OUTPUT @Agt4287a;":DATA:RCAD2?"
1460 ENTER @Agt4287a;Rdc
1470 PRINT "Rdc =";ABS(Rdc)
1480 IF ABS(Rdc)>U_lim THEN Err_flag=1
1490 CASE "Load"
1500 OUTPUT @Agt4287a;":DATA:RCAD3?"
1510 ENTER @Agt4287a;Rdc
1520 PRINT "Rdc =";ABS(Rdc)
1530 IF ABS(Rdc)<L_lim OR ABS(Rdc)>U_lim THEN Err_flag=1
1540 END SELECT
1550 IF Err_flag=0 THEN
1560 PRINT Standard$&" Data Measurement Complete"
1570 ELSE
1580 PRINT "ERROR!!"
1590 GOTO Cal_meas
1600 END IF
1610 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
1620 RETURN 0
1630 ELSE
1640 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
1650 PRINT "Program Interruption"
1660 RETURN -1
1670 END IF
1680 FNEND
1690 !=============================================
1700 ! Calibration Kit Setup Function
1710 !=============================================
1720 SUB Set_cal_kit(@Agt4287a)
1730 DIM Inp_char$[9],Para1$[9],Para2$[9]
1740 INTEGER Def,Nop,Load_para,Point
1750 REAL Open1,Open2,Open_dc,Open_del
1760 REAL Shor1,Shor2,Shor_dc,Shor_del
1770 REAL Load1,Load2,Load_dc,Load_del
1780 !
1790 ON ERROR GOTO Kit_select
1800 Kit_select: !
1810 PRINT "Select Calibration Kit"
1820 PRINT " 1: 7 mm Standard"
1830 PRINT " 2: User Defined"
1840 INPUT "Input 1 or 2",Inp_char$
1850 Kit=IVAL(Inp_char$,10)
1860 IF Kit<1 OR Kit>2 THEN Kit_select
1870 OFF ERROR
1880 !