User`s guide

Table Of Contents
Chapter 12 173
Sample Application Programs
Basic measurement (measuring a band pass filter)
12. Sample Application
Programs
Example 12-1 Measurement of band pass filter (meas_bpf.htb)
10 DIM Para$[9],Fmt$[9],File$[20],Buff$[9],Inp_char$[9],Err_msg$[20]
20 REAL Center,Span,If_bw,Pow,Resp,Bwid,Cent,Q,Loss,Cut_l,Cut_h
30 INTEGER Nop,Num_of_tr,Cal_kit,Port(1:4),Err_no
40 !
50 ASSIGN @Agte507x TO 717
60 !
70 Center=9.475E+8 ! Center Freq. : 947.5 MHz
80 Span=2.00E+8 ! Span : 200 MHz
90 Nop=401 ! Number of Points : 401
100 If_bw=1.0E+4 ! IF Bandwidth : 10 kHz
110 Pow=-10 ! Power Level : -10 dBm
120 Num_of_tr=1 ! Number of Traces : 1
130 Para$="S21" ! Meas. Parameter : S21
140 Fmt$="MLOG" ! Data Format : Log Mag
150 Cal_kit=4 ! Calibration Kit : 85032F
160 File$="State08.sta" ! Save File Name : State08.sta
170 !
180 ! Mesurement Condition
190 !
200 OUTPUT @Agte507x;":SYST:PRES"
210 !
220 OUTPUT @Agte507x;":SENS1:FREQ:CENT ";Center
230 OUTPUT @Agte507x;":SENS1:FREQ:SPAN ";Span
240 OUTPUT @Agte507x;":SENS1:SWE:POIN ";Nop
250 OUTPUT @Agte507x;":SENS1:BAND ";If_bw
260 OUTPUT @Agte507x;":SOUR1:POW ";Pow
270 !
280 OUTPUT @Agte507x;":CALC1:PAR:COUN ";Num_of_tr
290 OUTPUT @Agte507x;":CALC1:PAR1:DEF "&Para$
300 OUTPUT @Agte507x;":CALC1:PAR1:SEL"
310 OUTPUT @Agte507x;":CALC1:FORM "&Fmt$
320 !
330 ! Full 2 Port Calibration (@ Port 1 & Port 2)
340 !
350 OUTPUT @Agte507x;":SENS1:CORR:COLL:CKIT ";Cal_kit
360 Port(1)=1
370 Port(2)=2
380 Cal_solt(@Agte507x,"1",2,Port(*))
390 !
400 ! Save State & Cal
410 !
420 OUTPUT @Agte507x;":MMEM:STOR:STYP CST"
430 OUTPUT @Agte507x;":MMEM:STOR """&File$&""""
440 !
450 ! Measurement
460 !
470 CLEAR SCREEN
480 OUTPUT @Agte507x;":TRIG:SOUR BUS"
490 OUTPUT @Agte507x;":INIT1:CONT ON"
500 Meas_start:!
510 PRINT "Set DUT, then Push [Enter] key"
520 INPUT "",Inp_char$
530 !
540 OUTPUT @Agte507x;":TRIG:SING"
550 OUTPUT @Agte507x;"*OPC?"
560 ENTER @Agte507x;Buff$
570 !
580 OUTPUT @Agte507x;":DISP:WIND1:TRAC1:Y:AUTO"
590 !
600 ! Analysis
610 !