Agilent Technologies 75000 Series C - Manual (Page 100)

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 filter
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 !---------- Initialize 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 !---------- Get ref 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_setup)
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_setup)
1200 PRINT "DMM XOVER READING =";Dmm_xover
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 Agilent E1445A Service Manual