AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
830 OUTPUT @Afg;"FUNC SIN;"; !Sine
840 OUTPUT @Afg;":VOLT "&VAL$(Ampl_dbm)&"DBM;"; !Set amplitude
850 OUTPUT @Afg;":OUTP:LOAD 50 !50 ohm load
860 OUTPUT @Afg;"CAL:STATE:AC "&VAL$(Mode$="M") !Turn AC corrections
870 ! On if meas mode, or
880 !Off if adjust mode
890 OUTPUT @Afg;"OUTP:FILT:FREQ "&Filter$ !Set fil ter
900 OUTPUT @Afg;"OUTP:FILT ON"
910 OUTPUT @Afg;"INIT:IMM"
920 WAIT 1
930 RETURN
940 SUBEND
950 !
960 Meas_flat:SUB Meas_flat(Test_freq(*),Results(*),Filter$)
970 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer ,Secure_code$
980 COM /Flat/ INTEGER Num_points,Max_ con
990 INTEGER Dmm_setup,Pm_setup
1000 !
1010 !---------- In i ti a lize variables --- -------
1020 Ref_freq=1000 !Reference frequency
1030 Xover_freq=1.E+5 !Crossover frequency
1040 Dmm_setup=1
1050 Pm_setup=1
1060 !
1070 !---------- Ge t re f readings ------- ---
1080 !
1090 PRINTER IS CRT
1100 !Get DMM reading at ref freq
1110 OUTPUT @Afg;"FREQ "&VAL$(Ref_freq)
1120 CALL Dmm_flat_rdg(Ref_freq,Dmm_ref,Dmm_se tu p)
1130 PRINT "DMM REF READING =";Dmm_ref
1140 !
1150 !If 10MHZ filter, get DMM & PWR MTR readings at crossover freq
1160 IF Filter$="10MHZ" THEN
1170 OUTPUT @Afg;"FREQ "&VAL$(Xover _freq)
1180 !
1190 CALL Dmm_flat_rdg(Xover_freq,Dmm_xover,Dmm_set up)
1200 PRINT "DMM XOVER READING =";Dmm_x over
1210 CALL Pm_flat_rdg(Xover_freq,Pm_xover,Pm_setup)
1220 Correct_factor=Dmm_xover/Pm_xover
1230 PRINT "POWER METER XOVER READING =";Pm_xover
1240 ELSE
1250 Correct_factor=1
1260 END IF
(Continued on next page)
98 Adjustments A gilent E1445A Service Manual