Specifications

Chapter 4 47
Preparing for Accurate Measurement
Performing Calibration
4. Preparing for Accurate
Measurement
620 !
630 OUTPUT @Agt4287a;":DATA:CCO1?"
640 ENTER @Agt4287a;Cal_coef_a1(*)
650 OUTPUT @Agt4287a;":DATA:CCO2?"
660 ENTER @Agt4287a;Cal_coef_b1(*)
670 OUTPUT @Agt4287a;":DATA:CCO3?"
680 ENTER @Agt4287a;Cal_coef_c1(*)
690 OUTPUT @Agt4287a;":DATA:CCO4?"
700 ENTER @Agt4287a;Cal_coef_a2(*)
710 OUTPUT @Agt4287a;":DATA:CCO5?"
720 ENTER @Agt4287a;Cal_coef_b2(*)
730 OUTPUT @Agt4287a;":DATA:CCO6?"
740 ENTER @Agt4287a;Cal_coef_c2(*)
750 !
760 OUTPUT @Agt4287a;":DATA:RCCO1?"
770 ENTER @Agt4287a;Cal_coef_dc(1)
780 OUTPUT @Agt4287a;":DATA:RCCO2?"
790 ENTER @Agt4287a;Cal_coef_dc(2)
800 OUTPUT @Agt4287a;":DATA:RCCO3?"
810 ENTER @Agt4287a;Cal_coef_dc(3)
820 !----------------------------------------
830 ! Calibration Coefficient Saving
840 !----------------------------------------
850 Data_size=(Nop*2*6+3)*8
860 ON ERROR GOTO Skip_purge
870 PURGE File$
880 Skip_purge: OFF ERROR
890 CREATE File$,Data_size
900 ASSIGN @File TO File$;FORMAT OFF
910 OUTPUT @File;Cal_coef_a1(*),Cal_coef_b1(*),Cal_coef_c1(*),
Cal_coef_a2(*),Cal_coef_b2(*),Cal_coef_c2(*),Cal_coef_dc(*)
920 ASSIGN @File TO *
930 !
940 PRINT "## Done ##"
950 PRINT "Save file name: "&File$
960 !
970 Prog_end: END
980 !=============================================
990 ! Calibration Data Measurement Function
1000 !=============================================
1010 DEF FNCal(@Agt4287a,INTEGER Scode,Standard$,REAL L_lim,REAL U_lim)
1020 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
1030 REAL Meas_data
1040 INTEGER Err_flag
1050 OUTPUT @Agt4287a;":TRIG:SOUR?"
1060 ENTER @Agt4287a;Trig_sour$
1070 OUTPUT @Agt4287a;":ABOR"
1080 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
1090 OUTPUT @Agt4287a;":INIT:CONT ON"
1100 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
1110 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
1120 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
1130 OUTPUT @Agt4287a;"*SRE 128"
1140 Cal_meas:!
1150 PRINT "Set "&Standard$&"-Connection."
1160 INPUT "OK? [Y/N]",Inp_char$
1170 IF UPC$(Inp_char$)="Y" THEN
1180 OUTPUT @Agt4287a;"*CLS"
1190 OUTPUT @Agt4287a;"*OPC?"
1200 ENTER @Agt4287a;Buff$
1210 ON INTR Scode GOTO Meas_end
1220 ENABLE INTR Scode;2
1230 SELECT Standard$
1240 CASE "Open"