AC Flatness Adjustment Procedure (cont’d)
Example Program (cont’d)
2180 OUTPUT @Afg;Ac_cal_cons(*) !Load array
2190 OUTPUT @Afg USING "#,K";CHR$(10),END !LF,EOI
2200 !
2210 ASSIGN @Afg TO Address !Back to default attributes
2220 OUTPUT @Afg;"CAL:SEC:STATE ON" !Disable cal
2230 !
2240 PRINT "Flatness calibration constants stored to EEPROM"
2250 ELSE
2260 PRINT "Flatness calibration constants NOT stored to EEPROM"
2270 END IF
2280 !
2290 DISP "Press ’Continue’ when ready"
2300 PAUSE
2310 DISP
2320 !
2330 DEALLOCATE Ac_cal_cons(*)
2340 SUBEND
2350 !
2360 Dmm_flat_rdg:SUB Dmm_flat_rdg(Freq,Rdg,I N TEG ER Dmm_setup)
2370 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
2380 COM /Flat/ INTEGER Num_points,Max_con
2390 !
2400 IF Dmm_setup THEN !If t rue, set up DMM
2410 !ot herwise, skip setup
2420 DISP "Connect DMM to AFG Output (with 50ohm termination), the n pre ss ’C ont inue’ "
2430 PAUSE
2440 DISP
2450 OUTPUT @Dmm;"PRESET NORM;FUNC ACV;SETACV SYNC;TRIG HOLD"
2460 OUTPUT @Dmm;"RANGE 10;DELAY .1"
2470 WAIT 1
2480 Dmm_setup=0 ! Clear flag so setup is only performed once
2500 END IF
2510 !
2520 OUTPUT @Dmm;"ACBAND "&VAL$(Freq*.9)&","&VAL$(Freq*1.1)
2530 WAIT .5
2540 OUTPUT @Dmm;"TRIG SGL"
2550 ENTER @Dmm;Rdg
2560 SUBEND
2570 !
2580 Pm_flat_rdg:SUB Pm_flat_rdg(Freq,Rdg,INTEGE R P m _se tu p)
2590 COM @Afg,@Dmm,@Pwr_mtr,@Analyzer,Secur e_code$
2600 COM /Flat/ INTEGER Num_points,Max_con
2610 !
2620 IF Pm_setup THEN !If true, then set up Power Meter
2630 !otherwise skip setup
(Continued on next page)
Agilent E1445A Service Manual Adjustments 101