Agilent Technologies 75000 Series C - Manual (Page 69)

Test 2-9: Total Harmonic Distortion (cont’d)
Example Program (cont’d)
230 PRINT "Connect Spectrum Analyzer to AFG Output."
240 DISP "Press ’Continue’ when ready"
250 PAUSE
260 !
270 !---------- Set up AFG ----------
280 OUTPUT @Afg;"*RST"
!Reset AFG
290 WAIT 1
300 OUTPUT @Afg;"VOLT "&Dbm_out$
!Set AFG output
310 OUTPUT @Afg;"OUTP:FILT:FREQ 10MHZ" !Enable 10MHz filter
320 OUTPUT @Afg;"OUTP:FILT ON"
330 OUTPUT @Afg;"INIT:IMM"
!Initiate
340 !
350 !---------- Perform test ----------
360 FOR I=1 TO 5
370 OUTPUT @Afg;"FREQ "&VAL$(Freq(I))
!Set frequency
380 !
390 CALL Meas_thd(Freq(I),Thd)
!Measure THD
400 PRINT "Fundamental Frequency =";Freq(I)
410 PRINT "THD =";DROUND(Thd,4);"dBc"
420 PRINT
430 DISP "Press ’Continue’ when ready"
440 PAUSE
450 DISP
460 NEXT I
470 !
480 OUTPUT @Afg;"*RST;*CLS"
!Reset AFG
490 END
500 !
510 !
520 !---------- Measurement subprogram ----------
530 SUB Meas_thd(Frequency,Thd)
540 INTEGER Harmonic
550 CLEAR SCREEN
560 Harmonic=1
570 !
580 GOSUB Meas_fund
!Get fundamental amplitude
590 !
(Continued on next page)
Agilent E1445A Service Manual Verification Tests 67