Agilent Technologies 35670A Manual page 764

Example Programs
GETCURF
460 !
470 !
480 IF Device=800 THEN OUTPUT @Analyzer;"DISP:PROG FULL"
490 !
500 !
510 PRINT ""
520 IF A(0)=0 THEN PRINT "TABLE TYPE = POLE ZERO"
530 IF A(0)=1 THEN PRINT "TABLE TYPE = POLE RESIDUE"
540 IF A(0)=2 THEN PRINT "TABLE TYPE = POLYNOMIAL"
550 PRINT ""
560 PRINT "
570 PRINT "
580 FOR I=4 TO 4+2*(A(1)-1) STEP 2
590 PRINT USING "10D.4D,3X,5A,7D.3D";A(I),"+/- j",A(I+1)
600 NEXT I
610 PRINT ""
620 PRINT "
630 PRINT "
640 FOR I=46 TO 46+2*(A(2)-1) STEP 2
650 PRINT USING "10D.4D,3X,4A,7D.3D";A(I),"+/- j",A(I+1)
660 NEXT I
670 PRINT ""
680 PRINT ""
690 PRINT "CURVE FIT TERMS"
700 PRINT "
710 PRINT ""
720 FOR I=130 TO 130+(A(1)-1) STEP 1
730 IF A(I)=0 THEN
740 PRINT USING "8X,10A,#";"MOVEABLE"
750 ELSE
760 PRINT USING "8X,10A,#";"FIXED"
770 END IF
780 IF A(I+21)=0 THEN
790 PRINT USING "8X,10A";"MOVEABLE"
800 ELSE
810 PRINT USING "8X,10A";"FIXED"
820 END IF
830 NEXT I
840 PRINT ""
850 PRINT " GAIN = ",A(Num_points-3)
860 PRINT " FREQUENCY SCALE
870 PRINT " TIME DELAY = ",A(Num_points-1),"SECONDS"
880 END
F-26
POLES"
REAL IMAGINARY"
ZEROS"
REAL IMAGINARY"
POLES
= ",A(Num_points-2),"HZ/HZ"
ZERO'S"