Test 2-8: Duty Cycle (cont’d)
Example Program
This program performs the Duty Cycle Test.
10! RE-STORE "DUTY_CYCLE"
20 DIM Freq(1:4),Range$(1:4)[10]
30 !
40 !---------- Set up I/O path and reset AFG ----------
50 ASSIGN @Afg TO 70910
60 OUTPUT @Afg;"*RST;*CLS" !Reset AFG
70 !
80 !---------- Ini tialize variables ----------
90 DATA 1E3,2E3,2.5E5,5E5
100 READ Freq(*)
110 !
120 DATA MIN,MAX,MIN,MAX !’MAX’ enables doubling
130 READ Range$(*) !’MIN’ disables doubling
140 !
150 !---------- Set u p C o unter ----------
160 CLEAR SCREEN
170 PRINT "Set up Counter:"
180 PRINT " Function -- Pulse W idth"
190 PRINT " Coupling -- DC"
210 PRINT " Input Impedance -- 50 ohms"
220 PRINT
230 PRINT "Connect Counter to AFG Output."
240 DISP "Press ’Continue’ when ready"
250 PAUSE
260 CLEAR SCREEN
270 !
280 !---------- Set u p A F G ----------
290 OUTPUT @Afg;"*RST" !Reset AFG
300 OUTPUT @Afg;"FUNC SQU;"; !Squarewave
310 OUTPUT @Afg;":VOLT MAX" !MAX output
320 !
330 !---------- Per form test ----------
340 FOR I=1 TO 4
350 OUTPUT @Afg;"ABORT" !Abort wa veform
360 OUTPUT @Afg;"FREQ:RANG "&Range$(I)&";"; !Freq doubling on/off
370 OUTPUT @Afg;":FREQ "&VAL$(Freq(I)) !Set frequency
380 OUTPUT @Afg;"INIT:IMM" !Initiate
390 WAIT 1
400 !
(Continued on next page)
62 Verification Te sts Agilent E1445A Serv ice Manual