Chapter 7
7-53
Programming Examples
Measurement Calibration Examples
76 !
77 ! Choose an S-Parameter to send back to the Network Analyzer
78 !
79 REPEAT
80 INPUT “SELECT S-Parameter: 1=S11, 2=S21, 3=S12, 4=S22”,Disp
81 SELECT Disp
82 CASE 1
83 Title$=”S11”
84 Again=0
85 CASE 2
86 Title$=”S21”
87 Again=0
88 CASE 3
89 Title$=”S12”
90 Again=0
91 CASE 4
92 Title$=”S22”
93 Again=0
94 CASE ELSE
95 Again=1
96 END SELECT
97 UNTIL Again=0
98 OUTPUT @Nwa;”TITL”””&Title$&”””;”
99 !
100 ! For this demonstration, we will return corrected values to the
101 ! memory trace. Therefore, display memory only
102 !
103 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
104 !
105 ! Note: Displaying MEMORY only inhibits the analyzer’s data
106 ! processing. Raw, Data, and Formatted arrays are not
107 ! updated. PreRaw is good.
108 !
109 OUTPUT @Nwa;”DATI;DISPMEMO;BEEPDONEOFF;”
110 PRINT “PRESS ANY KEY TO STOP”
111 Time1=TIMEDATE
112 !
113 ! Take the first sweep
114 !
115 OUTPUT @Nwa;”OPC?;SWPSTART;”
116 Run=1
117 Count=0
118 !
119 ! Now keep looping until any key is pressed
120 !
121 Timefmt:IMAGE “Cycle: “,2D,5X,” 2-port Cal: “,2D.DD,X,”secs, + displayed:
“,2D.DDD,X,”seconds.”
122 ON KBD GOSUB Stop_running
123 REPEAT
124 Count=Count+1
125 ENTER @Nwa;Done ! Read the OPC from the SWPSTART Command
126 GOSUB Read_4_raw ! Read the four raw S-parameters
127 GOSUB Calc_2_port ! Calculate the Corrected S-parameters
128 Time2=TIMEDATE
129 OUTPUT @Nwa;”INPUDATA;” ! Input them into the data array
130 OUTPUT @Nwdat;Hdr,Length ! Data header, same as the cal coeff’s
131 SELECT Disp
132 CASE 1
Summary of Contents for 8719ES
Page 15: ...1 1 1 Alphabetical Command Reference ...
Page 293: ...2 1 2 Introduction to Instrument Control ...
Page 310: ...3 1 3 GPIB Programming ...
Page 334: ...4 1 4 Reading Analyzer Data ...
Page 343: ...5 1 5 Data Processing Chain ...
Page 350: ...6 1 6 Error Reporting ...
Page 364: ...7 1 7 Programming Examples ...
Page 502: ...A 1 A Preset Conditions ...
Page 517: ...B 1 B Command Listings ...
