Specifications

176 Chapter 15
Sample Application Programs
Measuring the DUT with a Test Fixture
Example 15-1 Measuring the DUT with a Test Fixture (meas_fxt.bas)
10 DIM Unit$[9],Para$(1:4)[9],Buff$[9],Inp_char$[9],Img$[200]
20 REAL Freq(1:32),Pow(1:32),Res(1:32,1:7),Open_l_lim,Open_u_lim
30 REAL Short_l_lim,Short_u_lim,Load_l_lim,Load_u_lim
40 INTEGER Scode,Act_tab,Nop,Ave(1:32),Result,I
50 CLEAR SCREEN
60 !
70 ASSIGN @Agt4287a TO 717
80 Scode=7
90 !
100 ! Measurement Condition
110 !
120 Act_tab=1 ! Active Table Number: 1
130 Unit$="A" ! Power Level unit: mA
140 Nop=4 ! Number of Points: 4
150 Freq(1)=1.0E+8 ! Point No.1 Frequency: 100 MHz
160 Ave(1)=1 ! Averaging Factor: 1
170 Pow(1)=.2 ! OSC Level: 0.2 mA
180 Freq(2)=8.0E+8 ! Point No.2 Frequency: 800 MHz
190 Ave(2)=1 ! Averaging Factor: 1
200 Pow(2)=.2 ! OSC Level: 0.2 mA
210 Freq(3)=1.0E+9 ! Point No.3 Frequency: 1 GHz
220 Ave(3)=1 ! Averaging Factor: 1
230 Pow(3)=.2 ! OSC Level: 0.2 mA
240 Freq(4)=3.0E+9 ! Point No.4 Frequency: 3 GHz
250 Ave(4)=1 ! Averaging Factor: 1
260 Pow(4)=.2 ! OSC Level: 0.2 mA
270 Para$(1)="LS" ! Measurement Para.1: Ls
280 Para$(2)="Q" ! Parameter Para.2: Q
290 Para$(3)="Z" ! Para.3: Z
300 Para$(4)="RS" ! Para.4: Rs
310 !
320 ! Rdc Limit for Calibration/Compensation
330 !
340 Open_l_lim=100 ! Open Rdc Lower Limit : 100 ohm
350 Open_u_lim=1.E+9 ! Open Rdc Lower Limit : Dummy
360 Short_l_lim=-1.E+9 ! Short Rdc Lower Limit: Dummy
370 Short_u_lim=25 ! Short Rdc Lower Limit: 25 ohm
380 Load_l_lim=25 ! Load Rdc Lower Limit : 25 ohm
390 Load_u_lim=100 ! Load Rdc Lower Limit : 100 ohm
400 !
410 REDIM Res(1:Nop,1:7)
420 !----------------------------------------
430 ! Measurement Condition Setting
440 !----------------------------------------
450 OUTPUT @Agt4287a;":SYST:PRES"
460 OUTPUT @Agt4287a;":FORM ASC"
470 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Act_tab
480 OUTPUT @Agt4287a;":SOUR:UNIT "&Unit$
490 OUTPUT @Agt4287a;":SOUR:LIST ";Nop;",";
500 FOR I=1 TO Nop-1
510 OUTPUT @Agt4287a;Freq(I);",";Ave(I);",";Pow(I);",";
520 NEXT I
530 OUTPUT @Agt4287a;Freq(Nop);",";Ave(Nop);",";Pow(Nop)
540 OUTPUT @Agt4287a;":SOUR:LIST:STAT ON"
550 !
560 FOR I=1 TO 4
570 OUTPUT @Agt4287a;":CALC:PAR"&VAL$(I)&":FORM "&Para$(I)
580 NEXT I
590 !----------------------------------------
600 ! Calibration
610 !----------------------------------------