Agilent Technologies 35670A - Page 743

420 SELECT (Res)
430 CASE 100
440 Max_i=255
450 CASE 200
460 Max_i=511
470 CASE 400
480 Max_i=1023
490 CASE 800
500 Max_i=2047
510 CASE ELSE
520 PRINT “ILLEGAL MEASUREMENT RESOLUTION”
530 PAUSE
540 END SELECT
550 !
560 !
570 REDIM D(Max_i)
580 !
590 Dt=Res/Span/(Max_i+1)
600 FOR T=0 TO 1
610 FOR I=0 TO Max_i
620 D(I)=D(I)+SIN(2*PI*Tones(T)*I*Dt)
630 NEXT I
640 NEXT T
650 !
660 !
670 IF Device=800 THEN
680 OUTPUT @Analyzer;"DISP:FORM QUAD; PROG LOW"
690 ELSE
700 OUTPUT @Analyzer;"DISP:FORM ULOW;"
710 END IF
720 !
730 FOR I=0 TO 9
740 PRINT D(I)
750 NEXT I
760 !
770 !
780 OUTPUT @Analyzer;"FORM:DATA REAL, 64"
790 !
800 !
810 OUTPUT @Analyzer;"CALC1:FEED ‘XTIM:VOLT 1’;*WAI"
820 !
830 !
850 !
850 !
860 OUTPUT @Analyzer;"TRAC:DATA D1,TRAC1;*WAI"
870 !
880 !
890 OUTPUT @Analyzer;"TRAC:DATA D1,#0";
900 OUTPUT @Analyzer_bin;D(*)
910 OUTPUT @Analyzer;CHR$(10) END
Program listing continues on page F-7.
Example Programs
ARBSRC
F-5