
This
program
is
contained
in
the
attached
sample
disk
with
the
le
name
CALSET
E
(for
the
external
controller).
The
program
for
Instrument
B
ASIC
is
not
provided.
110
ASSIGN
@E5100
TO
717;FORMAT
ON
!
INITIALIZATION
120
ASSIGN
@Dt
TO
717;FORMAT
OFF
!
130
Scode=7
!
140
CLEAR
@E5100
!
150
CLEAR
@Dt
!
160
!
170
DIM
Dat(1:201,1:2)
!
180
Nop=201
!
190
!
200
GOSUB
Setup
!
CALL
SUBROUTINES
210
GOSUB
Load_cal_data
!
220
GOSUB
Dummy_cal
!
230
GOSUB
Send_cal_data
!
240
GOTO
Ending
!
250
!
260
Setup:
!
ANALYZER
SETUP
270
INPUT
"CENTER?
[MHz]",F_cent
!
280
F_cent=F_cent*1.E+6
!
290
INPUT
"SPAN?
[kHz]",F_span
!
300
F_span=F_span*1000
!
310
OUTPUT
@E5100;"PRES"
!
320
OUTPUT
@E5100;"CHAN1;ANAMODE
GAINP;MEAS
AR;FMT
LOGM"
!
330
OUTPUT
@E5100;"HOLD"
!
340
OUTPUT
@E5100;"POIN
";Nop
!
350
OUTPUT
@E5100;"CENS
";F_cent,F_span
!
360
RETURN
!
370
!
380
Dummy_cal:
!
DUMMY
CALIBRATION
390
OUTPUT
@E5100;"CALI
RESP"
!
400
OUTPUT
@E5100;"STANC?"
!
420
ENTER
@E5100;Tmp
!
430
!
440
Cal_end:
!
CALIBRATION
END
450
OUTPUT
@E5100;"RESPDONE?"
!
470
ENTER
@E5100;Tmp
!
480
RETURN
!
490
!
500
Load_cal_data:
!
LOADING
CAL
DATA
510
INPUT
"Enter
File
Name
(with
extension)",File$
520
ASSIGN
@File
TO
File$
!
530
ENTER
@File;Dat(*)
!
540
ASSIGN
@File
TO
*
!
550
RETURN
!
560
!
570
Send_cal_data:
!
SENDING
CAL
DATA
580
INPUT
"PRESS
[RETURN]
TO
SEND
CAL
DATA
TO
HP
E5100A/B.",Dum$
590
OUTPUT
@E5100;"FORM4"
!
600
OUTPUT
@E5100;"INPUCALC01
";Dat(*)
!
7-6
Application
Sample
Programs
Содержание E5100A
Страница 1: ...Agilent E5100A B Network Analyzer Programming Manual ...
Страница 2: ......
Страница 5: ...c Copyright 1995 1996 1997 1998 2000 2001 Agilent Technologies Japan Ltd ...
Страница 8: ......
Страница 36: ......
Страница 46: ......
Страница 48: ...Figure 3 1 Simpli ed Data Processing Flow 1 3 2 Data Processing and T ransfer ...
Страница 58: ......
Страница 76: ......
Страница 105: ...610 RETURN 620 630 Ending ENDING PROGRAM 640 ASSIGN Dt TO 650 660 END Application Sample Programs 7 7 ...
Страница 112: ......
Страница 232: ......
Страница 246: ......
Страница 250: ......
Страница 277: ...110 PRINT Pole left Pole1 dB Fp1 Hz 120 PRINT Pole right Pole2 dB Fp2 Hz 130 END Waveform Analysis Commands D 27 ...
Страница 299: ...110 END Waveform Analysis Commands D 49 ...
Страница 302: ......
Страница 322: ......
Страница 350: ......
Страница 352: ......
Страница 362: ......
Страница 368: ......
Страница 372: ......