Agilent Technologies 4294A Programming Manual page 105

Lines 230 to 240
Lines 250 to 260
Lines 270 to 280
Lines 310 to 370
Line 390
Example 7-3 Trace bandwidth analysis
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
Chapter 7
Turns ON the marker function, searches for a peak, and moves the
marker to the peak.
Specifies the measurement parameter at the cut-off point to
that obtained at the marker position and then turns ON the bandwidth
search function.
Reads the analysis results and substitutes the obtained values into the
corresponding variables B_wid, B_cent, B_q, Peak, Delta_l, and
Delta_r.
Displays analysis results if the content of B_wid is not 0.
Displays a message to inform you that no cutoff point has been found
if the content of B_wid is 0.
DIM Act_trc$[9],Buff$[9]
REAL Cent,Span,B_wid,B_cent,B_q,Peak,Delta_l,Delta_r
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
ELSE
ASSIGN @Hp4294a TO 717
END IF
!
Cent=6.0E+7
Span=2.0E+4
Act_trc$="A"
!
OUTPUT @Hp4294a;"PRES"
OUTPUT @Hp4294a;"MEAS IMPH"
OUTPUT @Hp4294a;"CENT ";Cent
OUTPUT @Hp4294a;"SPAN ";Span
OUTPUT @Hp4294a;"SING"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
!
OUTPUT @Hp4294a;"TRAC "&Act_trc$
OUTPUT @Hp4294a;"AUTO"
OUTPUT @Hp4294a;"MKR ON"
OUTPUT @Hp4294a;"SEAM PEAK"
OUTPUT @Hp4294a;"WIDVTYPE DIVS2"
OUTPUT @Hp4294a;"WIDT ON"
OUTPUT @Hp4294a;"OUTPMWID?"
ENTER @Hp4294a;B_wid,B_cent,B_q,Peak,Delta_l,Delta_r
!
IF B_wid<>0. THEN
PRINT " --- Result ---"
PRINT "Width
PRINT "Center
PRINT "Q
PRINT "Peak
PRINT "Delta Left
PRINT "Delta Right
ELSE
PRINT "Cutoff point NOT found!"
END IF
END
Processing Measurement Results
Analyzing Measurement Results
:";B_wid;"[Hz]"
:";B_cent;"[Hz]"
:";B_q
:";Peak;"[ohm]"
:";Delta_l;"[Hz]"
:";Delta_r;"[Hz]"
⁄
of
1 2
105