Test 2-7: Frequency Accuracy (cont’d)
Example Program (cont’d)
250 !---------- Set u p A F G ----------
260 OUTPUT @Afg;"*RST" !Reset AFG
270 WAIT .5
280 !
290 !---------- Per form test ----------
300 FOR I=1 TO 5
310 PRINT "Expected reading =";Freq(I)
320 PRINT
330 IF I=1 THEN
340 OUTPUT @Afg;"ROSC:SOUR INT1" !ROSC = INT1
350 OUTPUT @Afg;"MARK:FEED ""ROSC""" !Marker source = ROSC
360 ELSE
370 OUTPUT @Afg;"ABORT" !Abort waveform
380 OUTPUT @Afg;"ROSC:SOUR INT2" !ROSC = INT2
390 IF Freq(I)=4.0E+7 THE N
400 OUTPUT @Afg;"MARK:FEED "" ROSC""" !Marker so urce = ROSC
410 ELSE
420 OUTPUT @Afg;":FUNC SQU;"; ! Squarewave
430 !
440 !Square wave fr eq is 1/4 of marker freq
450 OUTPUT @Afg;":FREQ2 "&VAL$(Freq(I)/4)&";";
460 OUTPUT @Afg;":TRIG:STAR:SOUR I NT2"!TRIG source = INT2
470 OUTPUT @Afg;"MARK:FEED "" TRIG""" !Marker source = TRIG
480 END IF
490 END IF
500 !
510 OUTPUT @Afg;"INIT:IMM" !Initiate
520 WAIT 1
530 !
540 DISP "Record the Counter reading, then press ’Continue’"
550 PAUSE
560 DISP
570 NEXT I
580 !
590 OUTPUT @Afg;"*RST;*CLS" !Reset AFG
600 END
Agilent E1445A Service Manual Verification Tests 59