User`s guide

Chapter 12 175
Sample Application Programs
Basic measurement (measuring a band pass filter)
12. Sample Application
Programs
1250 OUTPUT @Agte507x;Port(Num_of_ports)
1260 !
1270 ! Reflection Measurement
1280 !
1290 FOR I=1 TO Num_of_ports
1300 PRINT "Set OPEN to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1310 INPUT "",Buff$
1320 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:OPEN ";Port(I)
1330 OUTPUT @Agte507x;"*OPC?"
1340 ENTER @Agte507x;Buff$
1350 PRINT "Set SHORT to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1360 INPUT "",Buff$
1370 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SHOR ";Port(I)
1380 OUTPUT @Agte507x;"*OPC?"
1390 ENTER @Agte507x;Buff$
1400 PRINT "Set LOAD to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1410 INPUT "",Buff$
1420 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:LOAD ";Port(I)
1430 OUTPUT @Agte507x;"*OPC?"
1440 ENTER @Agte507x;Buff$
1450 NEXT I
1460 !
1470 ! Transmission Measurement
1480 !
1490 FOR I=1 TO Num_of_ports-1
1500 FOR J=I+1 TO Num_of_ports
1510 PRINT "Set THRU between Port "&VAL$(Port(I))&" and Port "&
VAL$(Port(J))&". Then push [Enter] key."
1520 INPUT "",Buff$
1530 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:THRU ";Port(I);","
;Port(J)
1540 OUTPUT @Agte507x;"*OPC?"
1550 ENTER @Agte507x;Buff$
1560 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:THRU ";Port(J);","
;Port(I)
1570 OUTPUT @Agte507x;"*OPC?"
1580 ENTER @Agte507x;Buff$
1590 NEXT J
1600 NEXT I
1610 !
1620 ! Done
1630 !
1640 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SAVE"
1650 PRINT "Done"
1660 SUBEND