Agilent Technologies 75000 Series C, E1445A 102 Adjustments Agilent E1445A Ser vice Manual

AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
2640 DISP "Connect Power Meter to AFG Output, then press ’Continu e’ "
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 setu p
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( C al_re al (*))
2810 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_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 , 1 E6 , 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 _r ef lect (* )
3050 !
3060 OUTPUT @Afg;"CAL:SEC:STATE ON"
3070 !
(Continued on next page)
102 Adjustments Agilent E1445A Ser vice Manual