Test 2-10: Spurious/Non-Harmonic Distortion (cont’d)
Example Program
This program performs the Spurious/Non-harmonic Tes t.
10 ! RE-STORE "NON_HARM"
20 DIM Start_freq(1:9),Stop_freq(1:9),Max_ampl(1:9)
30 !
40 !---------- Set up I/O path and reset AFG ----------
50 ASSIGN @Afg TO 70910 !AFG I/O path
60 OUTPUT @Afg;"*RST;*CLS" !Reset AFG
70 !
80 !---------- Ini tialize variables ----------
90 Freq_out=1.0E+7 !Freq = 10 MHz
100 Dbm_out$="-5DBM" ! Amplitude = -5dBm
110 !
120 DATA 100E3,10.5E6,21E6,31E6,41E6,51E6,75E6,100E6,125E6
130 READ Start_freq(*) !Read start freqs
140 !
150 DATA 9.5E6,19E6,29E6,39E6,49E6,75E6,100E6, 125E6,150E6
160 READ Stop_freq(*) !Read stop freqs
170 !
180 !---------- Set u p S p ec Analyzer ----------
190 CLEAR SCREEN
200 PRINT "Set up Spectrum Analyzer:"
210 PRINT
220 PRINT " Ref Level = -5dBm"
230 PRINT " Reso lution BW = 3 kHz"
240 PRINT " Video BW = 3 kHz"
250 PRINT
260 PRINT "Connect Spectrum Analyzer to AFG Output. "
270 DISP "Press ’Continue’ when ready"
280 PAUSE
290 CLEAR SCREEN
300 !
310 !---------- Set u p A F G ----------
320 OUTPUT @Afg;"*RST" ! Reset AFG
330 WAIT 1
340 OUTPUT @Afg;"FREQ "&VAL$(Freq_out)&";"; !Set frequency
350 OUTPUT @Afg;":VOLT "&Dbm_out$ !Set amplitude
360 OUTPUT @Afg;"OUTP:FILT:FREQ 10MHZ" !Enable 10MHz filter
370 OUTPUT @Afg;"OUTP:FILT ON"
380 OUTPUT @Afg;"INIT:IMM" !Initiate
390 !
(Continued on next page)
Agilent E1445A Service Manual Verification Tests 71