7-54 Chapter7
Programming Examples
Measurement Calibration Examples
133 OUTPUT @Nwdat;S11a(*) ! Send corrected S11 data to analyzer OR
134 CASE 2 !
135 OUTPUT @Nwdat;S21a(*) ! Send corrected S21 data to analyzer OR
136 CASE 3 !
137 OUTPUT @Nwdat;S12a(*) ! Send corrected S12 data to analyzer OR
138 CASE 4
139 OUTPUT @Nwdat;S22a(*) ! Send corrected S22 data to analyzer
140 END SELECT
141 OUTPUT @Nwa;”DATI;” ! Put the data into memory
142 OUTPUT @Nwa;”OPC?;SWPSTART;”! and start another sweep
143 Time3=TIMEDATE
144 DISP USING Timefmt;Count,Time2-Time1,Time3-Time1
145 Time1=TIMEDATE
146 UNTIL Run=0
147 OUTPUT @Nwa;”DISPDATA;CORRON;CONT;”
148 ABORT 7
149 LOCAL @Nwa
150 STOP
151 Stop_running: ! Terminate program upon keyboard input
152 Run=0
153 OFF KBD
154 RETURN
155 Read_4_raw: ! Read in the pre-raw arrays
156 A$=”OUTPPRE”
157 FOR B=1 TO 4
158 Out_cmd1$=A$&VAL$(B)&”;” ! Build up the OUTPPREXX commands
159 OUTPUT @Nwa;Out_cmd1$
160 ENTER @Nwdat;Hdr,Length ! Read in the header
161 SELECT B
162 !
163 ! Now read in each raw array
164 !
165 CASE 1
166 ENTER @Nwdat;S11r(*)
167 CASE 2
168 ENTER @Nwdat;S21r(*)
169 CASE 3
170 ENTER @Nwdat;S12r(*)
171 CASE 4
172 ENTER @Nwdat;S22r(*)
173 END SELECT
174 NEXT B
175 RETURN
176 Read_cal_co: ! This loops through 12 times, reading each cal.
177 ! coefficient. First set up the FORM
178 OUTPUT @Nwa;”FORM3;HOLD;”
179 OUTPUT @Nwa;”POIN?;”
180 ENTER @Nwa;Numpoints
181 !
182 ! Redimension the Calcoe array according to the number of points
183 !
184 REDIM Calcoe(1:Numpoints,1:12)
185 !
186 ! Also redimension all the other arrays used here, as this
187 ! routine only runs once at setup.
188 !
189 REDIM S11a(1:Numpoints)
190 REDIM S21a(1:Numpoints)
To Next Page
Loading...
Need help?
General
