Agilent Technologies E5071C User's Guide Page 73

  • Download
  • Add to my manuals
  • Print
  • Page
    / 551
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 72
Chapter 4 73
Performing a Calibration
Sample Program
4. Performing a Calibration
1250 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:METH:THRU
";Port1;",";Port2
1260 PRINT "Set THRU between Port "&VAL$(Port1)&" and Port
"&VAL$(Port2)&". Then push [Enter] key."
1270 INPUT "",Buff$
1280 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:THRU ";Port1;",";Port2
1290 OUTPUT @Agte507x;"*OPC?"
1300 ENTER @Agte507x;Buff$
1310 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SAVE"
1320 PRINT "Done"
1330 SUBEND
1340 !=============================================
1350 ! Full n Port Calibration Function
1360 !=============================================
1370 SUB Cal_solt(@Agte507x,Ch$,INTEGER Num_of_ports,INTEGER Port(*))
1380 DIM Buff$[9]
1390 INTEGER I,J
1400 !
1410 PRINT "## Full "&VAL$(Num_of_ports)&" Port Calibration ##"
1420 !
1430 ! Calibration Type Selection
1440 !
1450 OUTPUT
@Agte507x;":SENS"&Ch$&":CORR:COLL:METH:SOLT"&VAL$(Num_of_ports)&" ";
1460 FOR I=1 TO Num_of_ports-1
1470 OUTPUT @Agte507x;Port(I);",";
1480 NEXT I
1490 OUTPUT @Agte507x;Port(Num_of_ports)
1500 !
1510 ! Reflection Measurement
1520 !
1530 FOR I=1 TO Num_of_ports
1540 PRINT "Set OPEN to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1550 INPUT "",Buff$
1560 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:OPEN ";Port(I)
1570 OUTPUT @Agte507x;"*OPC?"
1580 ENTER @Agte507x;Buff$
1590 PRINT "Set SHORT to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1600 INPUT "",Buff$
1610 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SHOR ";Port(I)
1620 OUTPUT @Agte507x;"*OPC?"
1630 ENTER @Agte507x;Buff$
1640 PRINT "Set LOAD to Port "&VAL$(Port(I))&". Then push [Enter]
key."
1650 INPUT "",Buff$
1660 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:LOAD ";Port(I)
1670 OUTPUT @Agte507x;"*OPC?"
1680 ENTER @Agte507x;Buff$
1690 NEXT I
1700 !
1710 ! Transmission Measurement
1720 !
1730 FOR I=1 TO Num_of_ports-1
1740 FOR J=I+1 TO Num_of_ports
1750 PRINT "Set THRU between Port "&VAL$(Port(I))&" and Port
"&VAL$(Port(J))&". Then push [Enter] key."
1760 INPUT "",Buff$
1770 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:THRU
";Port(I);",";Port(J)
1780 OUTPUT @Agte507x;"*OPC?"
1790 ENTER @Agte507x;Buff$
1800 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:THRU
Page view 72
1 2 ... 68 69 70 71 72 73 74 75 76 77 78 ... 550 551

Comments to this Manuals

Vikiehs 04 Jan 2024 | 14:20:06

urenrjrjkvnm