Agilent Technologies 75000 Series C - Manual (Page 104)

AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
2640 DISP "Connect Power Meter to AFG Output, then press ’Continue’"
2650 PAUSE
2660 DISP
2670 OUTPUT @Pwr_mtr;"IP"
!Instrument preset
2680 OUTPUT @Pwr_mtr;"AU M4 WT" !Auto operation, RF power, watts
2690 WAIT .5
2700 Pm_setup=0
!Clear flag so that setup
2710 !is only performed once
2720 END IF
2730 OUTPUT @Pwr_mtr;VAL$(Freq/1.E+6)&"MHZ"
!Expected frequency
2740 OUTPUT @Pwr_mtr;"T3" !Trigger Pwr Meter w/settling
2750 ENTER @Pwr_mtr;Rdg !Get reading
2760 !
2770 Rdg=SQRT(ABS(Rdg)*50)
!Convert from watts to volts
2780 SUBEND
2790 !
2800 Read_dc_cal_con:SUB Read_dc_cal_con(Cal_real(*))
2810 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secure_code$
2820 COM /Flat/ INTEGER Num_points,Max_con
2830 !
2840 Max_con=25
2850 ALLOCATE Scale(1:12),INTEGER Cal_reflect(1:Max_con)
2860 IF SIZE(Cal_real,1)<Max_con THEN
2870 PRINT "PASS PARAMETER NOT DIMENSIONED LARGE ENOUGH"
2880 BEEP
2890 END IF
2900 !
2910 !SET CAL CONSTANT SCALE FACTORS
2920 DATA 7E6 ,7E6 ,1E7 ,1E7 ,1E6
2930 ! M_plus,M_minus,M_adj,M_off,M_cust
2940 DATA 1E6 ,1E6 ,1E10 , 1E6 , 1E4
2950 ! Vpwr ,Vbuf ,M_sub, B_sum, dB ERROR
2960 DATA 4 , 0
2970 ! P&N BASE
2980 READ Scale(*)
2990 !
3000 OUTPUT @Afg;"CAL:SEC:STATE OFF,"&Secure_code$
3010 !
3020 !Read cal constants back
3030 OUTPUT @Afg;"CAL:DATA?"
3040 ENTER @Afg USING "4A,34(W)";Dummy$[1,4],Cal_reflect(*)
3050 !
3060 OUTPUT @Afg;"CAL:SEC:STATE ON"
3070 !
(Continued on next page)
102 Adjustments Agilent E1445A Service Manual