Specifications

170 Chapter 7
Measurement Result Processing
Equivalent Circuit Analysis
90 Stop_f$="150MHZ"
100 Nop=201
110 Trc1=1
120 Trc2=2
130 Swp_count=1
140 Equ_model$="E"
150 !
160 ! E4991A settings
170 !
180 OUTPUT @Agte4991a;"SYST:PRES"
190 !
200 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&" ON"
210 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":FORM Z"
220 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc2)&" ON"
230 OUTPUT @Agte4991a;"CALC"&VAL$(Trc2)&":FORM ZPH"
240 OUTPUT @Agte4991a;"CALC"&VAL$(Trc2)&":FORM:UNIT:ANGL DEG"
250 !
260 OUTPUT @Agte4991a;"SWE:TYPE LIN"
270 OUTPUT @Agte4991a;"FREQ:STAR "&Start_f$
280 OUTPUT @Agte4991a;"FREQ:STOP "&Stop_f$
290 OUTPUT @Agte4991a;"SWE:POIN "&VAL$(Nop)
300 OUTPUT @Agte4991a;"CALC:AVER:COUN "&VAL$(Swp_count)
310 OUTPUT @Agte4991a;"CALC:AVER ON"
320 !
330 OUTPUT @Agte4991a;"TRIG:SOUR INT"
340 OUTPUT @Agte4991a;"INIT:CONT OFF"
350 OUTPUT @Agte4991a;"ABOR"
360 !
370 CALL Sweep(@Agte4991a)
380 !
390 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&":Y:AUTO"
400 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc2)&":Y:AUTO"
410 !
420 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":EPAR:CIRC "&Equ_model$
430 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":EPAR"
440 !
450 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA:EPAR? EQR1"
460 ENTER @Agte4991a;R1
470 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA:EPAR? EQC1"
480 ENTER @Agte4991a;C1
490 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA:EPAR? EQL1"
500 ENTER @Agte4991a;L1
510 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":DATA:EPAR? EQC0"
520 ENTER @Agte4991a;C0
530 !
540 PRINT " --- Result ---"
550 PRINT "R1 :";R1;"[ohm]"
560 PRINT "C1 :";C1;"[F]"
570 PRINT "L1 :";L1;"[H]"
580 PRINT "C0 :";C0;"[F]"
590 !
600 OUTPUT @Agte4991a;"CALC"&VAL$(Trc1)&":EPAR:SIM"
610 OUTPUT @Agte4991a;"CALC"&VAL$(Trc2)&":EPAR:SIM"
620 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&":Y:FOR AND"
630 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc2)&":Y:FOR AND"
640 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc1)&":Y:AUTO"
650 OUTPUT @Agte4991a;"DISP:TRAC"&VAL$(Trc2)&":Y:AUTO"
660 !