Example Program
10 ! RE-STORE "SINE_THD"
20 DIM Freq(1:6)
30 !
40 !---------- Set up I/O path ----------
50 ASSIGN @Afg TO 70910
!AFG I/O path
60 !
70 !---------- Initialize variables ----------
80 Dbm_out$="23DBM"
!AFG output
90 !
100 DATA 100E3,1E6,10E6,100E3,1E6,10E6
!Read in freqs
110 READ Freq(*)
120 !
130 !---------- Set up Spec Analyzer ----------
140 CLEAR SCREEN
150 PRINT "Set up Spectrum Analyzer:"
160 PRINT
170 PRINT " Ref Level = 25 dBm"
180 PRINT " Span = 1 kHz"
190 PRINT " Resolution BW = 30 Hz"
200 PRINT " Video BW = 30 Hz"
210 PRINT
220 PRINT "Connect Spectrum Analyzer to AFG Output."
230 DISP "Press ’Continue’ when ready"
240 PAUSE
250 !
260 !---------- Set up AFG ----------
270 OUTPUT @Afg;"*RST;*CLS"
!Reset AFG
280 WAIT 1
290 OUTPUT @Afg;"VOLT "&Dbm_out$
!Set AFG output
300 !
310 !---------- Perform test ----------
320 FOR I=1 TO 6
330 IF I=4 THEN
340 Dbm_out$="10DBM"
350 OUTPUT @Afg;"VOLT "&Dbm_out$
!Set AFG output to 10dBm
360 DISP "Set Spectrum Analyzer Ref Level to 12 dBm, then press ’Continue’"
370 PAUSE
380 END IF
390 !
400 OUTPUT @Afg;"ABORT"
!Abort waveform
410 OUTPUT @Afg;"FREQ "&VAL$(Freq(I))
!Set frequency
420 OUTPUT @Afg;"INIT:IMM"
!Initiate
430 !
440 CALL Meas_thd(Freq(I),Thd)
!Measure THD
450 PRINT "Amplitude = "&Dbm_out$
460 PRINT "Fundamental Frequency =";Freq(I)
470 PRINT "THD =";DROUND(Thd,4);"dBc"
480 PRINT
(Continued on Next Page
)
52 Verification Tests
Chapter 2
Содержание E1340A
Страница 6: ...Notes 6 HP E1340A Arbitrary Function Generator Service Manual ...
Страница 8: ......
Страница 10: ...Notes 12 What s in this Manual HP E1340A Service Manual ...
Страница 18: ...Notes 20 General Information Chapter 1 ...
Страница 74: ...Notes 76 Adjustments Chapter 3 ...
Страница 78: ...Notes 80 Replaceable Parts Chapter 4 ...
Страница 104: ...Notes 106 Verification Tests C Programs Appendix A ...