Agilent Technologies 8720E Series Programmer's Guide

Chapter 7 7-55
Programming Examples
Measurement Calibration Examples
191 REDIM S12a(1:Numpoints)
192 REDIM S22a(1:Numpoints)
193 REDIM S11r(1:Numpoints)
194 REDIM S21r(1:Numpoints)
195 REDIM S12r(1:Numpoints)
196 REDIM S22r(1:Numpoints)
197 FOR Cx=1 TO 12
198 OUTPUT @Nwa;Out_cmd$(Cx) ! OUTPCALCXC commands
199 ENTER @Nwdat;Hdr,Length ! Read the header using FORMAT OFF mode
200 FOR N=1 TO Numpoints
201 ENTER @Nwdat;Calcoe(N,Cx) ! Read data using FORMAT OFF mode
202 NEXT N
203 NEXT Cx
204 !
205 RETURN
206 Calc_2_port: ! Perform 2 Port Calibration
207 FOR N=1 TO Numpoints
208 !
209 ! First correct for crosstalk, directivity, and tracking
210 !
211 ! Subtract Directivity, divide by tracking
212 S11x=(S11r(N)-Calcoe(N,1))/Calcoe(N,3)
213 !
214 ! Subtract Crosstalk, divide by tracking
215 S21x=(S21r(N)-Calcoe(N,4))/Calcoe(N,6)
216 !
217 ! Subtract Crosstalk, divide by tracking
218 S12x=(S12r(N)-Calcoe(N,10))/Calcoe(N,12)
219 !
220 ! Subtract Directivity, divide by tracking
221 S22x=(S22r(N)-Calcoe(N,7))/Calcoe(N,9)
222 !
223 ! Now calculate the common denominator
224 !
225 D=(1+S11x*Calcoe(N,2))*(1+S22x*Calcoe(N,8))-(S21x*S12x*Calcoe(N,5)*Calcoe(N,11))
227 !
228 ! Now calculate each S-parameter
229 !
230 S11a(N)=((S11x*(1+S22x*Calcoe(N,8)))-(S21x*S12x*Calcoe(N,5)))/D
231 S21a(N)=((1+S22x*(Calcoe(N,8)-Calcoe(N,5)))*(S21x))/D
232 S12a(N)=((1+S11x*(Calcoe(N,2)-Calcoe(N,11)))*(S12x))/D
233 S22a(N)=((S22x*(1+S11x*Calcoe(N,2)))-(S21x*S12x*Calcoe(N,11)))/D
234 NEXT N
235 RETURN
236 END

Agilent Technologies 8720E Series Specifications

General

Brand	Agilent Technologies
Model	8720E Series
Category	Measuring Instruments
Language	English