
Programming
Examples
2495
Data_collected:
!
COLLECT
DATA
IN
FORM
1
FORMAT.
2497
OUTPUT
@Rec;"SINP;"
!
EXIT
FROM
FAST
DATA
MODE.
2499
OUTPUT
@Rec;"OUTPERRO;"
!
CHECK
ERROR
STATUS.
2501
ENTER
@Rec_data1;Error_number,Input$
2503
"HP
8530A
ERROR
STATUS:
";Error_number,Input$
2505
SIZE(Form1_data,1);"Points
Data
Collected"
2507
!
2509
LINPUT
"Press
Return
to
Convert
Data",Input$
2511
!
2513
!
This
table
is
used
to
convert
the
exponent
value
from
form1
data
2515
REAL
Exp_tbl(0:255)
2517
Exp_tbl(0)=2^(-15)
!
BUILD
EXPONENT
TABLE
FOR
DATA
CONVERSION
2519
FOR
I=0
TO
126
2521
Exp_tbl(I+1)=Exp_tbl(I)+Exp_tbl(I)
2523
NEXT
I
2525
Exp_tbl(128)=2^(-143)
2527
FOR
I=128
TO
254
2529
Exp_tbl(I+1)=Exp_tbl(I)+Exp_tbl(I)
2531
NEXT
I
2533
!
2535
FOR
N=1
TO
SIZE(Form1_data,1)
!
CONVERT
THE
DATA.
2537
Exponent=Exp_tbl(BINAND(Form1_data(N,2),255))
2539
Real=Form1_data(N,1)*Exponent
2541
Imag=Form1_data(N,0)*Exponent
2543
Lin_mag=20*LGT(SQRT(Real^2+Imag^2))
2545
IF
N/20=INT(N/20)
THEN
"Point";N;")
";Lin_mag
2547
NEXT
N
2549
!
2551
Exit_example26:
!
2553
GOSUB
Keys_off
2555
LINPUT
"Repeat
Example?
(Y
or
N)",Input$
2557
IF
UPC$(Input$)="N"
THEN
2559
RETURN
2561
ELSE
2563
GOTO
Again26
2565
END
IF
2567
!
2569
!
****************
2571
!
End
of
Examples.
The
following
subroutines
are
used
by
the
examples
2573
!
****************
2575
Wait_loop:WAIT
.01
2577
GOTO
Wait_loop
2579
!
********
2581
Blank_keys:
!
erases
all
the
softkeys
2583
FOR
I=1
TO
8
2585
ON
KEY
I
LABEL
""
GOSUB
Do_nothing
2587
NEXT
I
2589
!
********
2591
Do_nothing:
!
2593
WAIT
.01
2595
RETURN
2597
!
******
2599
Keys_off:
!
2601
FOR
I=1
TO
8
2603
OFF
KEY
I
2605
NEXT
I
2607
!
*************
2609
Load_ant_arrays:
!
Load
arrays
with
antenna
data
(examples
4
&
15)
2611
ASSIGN
@File
TO
"ANG360"
2613
ENTER
@File;Preamble,Size,Ant_data(*)
2615
!
2617
ASSIGN
@File
TO
"ANG180_SUM"
2619
ENTER
@File;Preamble,Size,Ant_sum(*)
2621
!
18-56
HP-IB
Programming
Содержание 8530A
Страница 9: ......
Страница 31: ......
Страница 34: ...General Information Figure 1 2 Antenna Measurement Setup Using an HP 85310A GeneralInformation 1 3 ...
Страница 51: ......
Страница 65: ......
Страница 81: ......
Страница 83: ......
Страница 84: ...5 Menus Block Chapter Contents Calibration Domain Display Markers MenusBlock 5 1 ...
Страница 85: ...5 2 Menus Block ...
Страница 90: ...Calibration Requirements Figure 5 1 Cal and Cal Type Menus MenusBlock 5 7 ...
Страница 93: ...Antenna Calibration 5 10 MenusBlock ...
Страница 167: ......
Страница 195: ......
Страница 201: ......
Страница 209: ......
Страница 249: ......
Страница 281: ......
Страница 411: ......
Страница 419: ...Glossary Glossary 8 ...
Страница 439: ......