Specifications

80 Chapter 4
Preparation for Accurate Measurement
Calibration
260 CALL Inp_data("Open(G)",Open_g)
270 CALL Inp_data("Open(C)",Open_c)
280 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN1:G "&VAL$(Open_g)
290 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN1:C "&VAL$(Open_c)
300 !
310 ! Entry Short Std. Value (R-L)
320 !
330 CALL Inp_data("Short(R)",Short_r)
340 CALL Inp_data("Short(L)",Short_l)
350 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN2:R "&VAL$(Short_r)
360 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN2:L "&VAL$(Short_l)
370 !
380 ! Entry Load Std. Value (R-L)
390 !
400 CALL Inp_data("Load(R)",Load_r)
410 CALL Inp_data("Load(L)",Load_l)
420 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN3:R "&VAL$(Load_r)
430 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:STAN3:L "&VAL$(Load_l)
440 END IF
450 !
460 ! Open Data Measurement
470 !
480 Result=FNCal(@Agte4991a,"Open")
490 IF Result<>0 THEN Prog_end
500 !
510 ! Short Data Measurement
520 !
530 Result=FNCal(@Agte4991a,"Short")
540 IF Result<>0 THEN Prog_end
550 !
560 ! Load Data Measurement
570 !
580 Result=FNCal(@Agte4991a,"Load")
590 IF Result<>0 THEN Prog_end
600 !
610 ! Low-Loss Capacitor Data Measurement
620 !
630 PRINT "Do you want to measure Low-Loss Capacitor?"
640 PRINT
650 INPUT "[Y/N]",Inp_char$
660 IF UPC$(Inp_char$)="Y" THEN
670 Result=FNCal(@Agte4991a,"Low-Loss C")
680 IF Result<>0 THEN Prog_end
690 END IF
700 !
710 ! Calibration Done
720 !
730 OUTPUT @Agte4991a;"SENS:CORR1:COLL:SAVE"
740 OUTPUT @Agte4991a;"*OPC?"
750 ENTER @Agte4991a;Buff$
760 PRINT "All Data Measurement Complete"
770 PRINT
780 !
790 ! Calibration Coefficient Array Reading & Saving
800 !
810 OUTPUT @Agte4991a;"SWE:POIN?"
820 ENTER @Agte4991a;Nop_cal
830 REDIM Cal_a1(1:Nop_cal,1:2),Cal_a2(1:Nop_cal,1:2)