1480
IF
Imeas=1
THEN
"Remove
the
attachment,
then
press
CONT."
1490
IF
Imeas=2
THEN
"Set
test
material
on
the
electrode,
then
press
CONT."
1500
PAUSE
1510
FOR
Ifreq=1
TO
Nfreq
1520
OUTPUT
Hp4284a;"FREQ
"&VAL$(Freq(Ifreq))
1530
OUTPUT
Hp4284a;"*TRG"
1540
ENTER
Hp4284a;Work$
1550
A(Imeas,Ifreq)=VAL(Work$[1,12])
1560
NEXT
Ifreq
1570
NEXT
Imeas
1580
!
1590
PRINTER
IS
701
1600
"Meas.
Frequency
Dielectric
Const."
1610
FOR
Ifreq=1
TO
Nfreq
1620
D(Ifreq)=1/(1-(1-A(1,Ifreq)/A(2,Ifreq))*Tr)
1630
USING
"D.DDESZZ,AAAAAA,D.DDDD";
Freq(Ifreq)
;"[Hz]";
D(Ifreq)
1640
NEXT
Ifreq
1650
PRINTER
IS
CRT
1660
!
1670
OUTPUT
@Work;Nfreq
!
Store
meas.
condition
1680
FOR
Ifreq=1
TO
Nfreq
1690
OUTPUT
@Work;D(Ifreq)
!
Store
meas.
data
1700
NEXT
Ifreq
1710
!
*
Graphic
initialize
*
1720
CLEAR
SCREEN
!
Clear
screen
1730
WINDOW
-.5,2,-.5,2
!
Set
graphic
window
1740
Dmax=MAX(D(*))
!
Find
max.
value
of
meas.
dat
1750
GOSUB
Axis
1760
FOR
Ifreq=1
TO
Nfreq
!
*
Calc.
graphic
data
*
1770
!
1780
Xp(Ifreq)=Freq(Ifreq)/Freq(Nfreq)
1790
Yp(Ifreq)=D(Ifreq)/Dmax
1800
!
1810
NEXT
Ifreq
1820
MOVE
Xp(1),Yp(1)
1830
FOR
Ifreq=1
TO
Nfreq
1840
DRAW
Xp(Ifreq),Yp(Ifreq)
1850
NEXT
Ifreq
1860
STOP
1870
!
1880
Axis:
1890
Axis$(1)="FREQ."
1900
Axis$(2)="Dielectric
Constant"
1910
MAT
Axis=
(0)
1920
FOR
Iax=1
TO
2
1930
Axis(Iax,Iax)=1.2
1940
NEXT
Iax
1950
Xzero=0
1960
Yzero=0
1970
FOR
Iax=Ix
TO
Iy
1980
MOVE
Xzero,Yzero
1990
DRAW
Axis(Iax,Ix),Axis(Iax,Iy)
2000
IF
Iax=Ix
THEN
MOVE
Axis(Iax,Ix)/2,Yzero-.1
2010
IF
Iax=Iy
THEN
MOVE
Xzero-.1,Axis(Iax,Iy)/2
Sample
program
D-3
Содержание 16451B
Страница 8: ... C Copyright 2008 Agilent Technologies ...
Страница 10: ......
Страница 20: ......
Страница 28: ......
Страница 34: ......
Страница 46: ......
Страница 56: ...Figure 3 6 Summary of Measurement Methods 3 10 Operation ...
Страница 83: ...because a change of temperature causes mechanical dimensions to change Operation 3 37 ...
Страница 119: ...Figure 4 4 Cable Connection Diagram Service 4 9 ...
Страница 120: ......
Страница 122: ......
Страница 132: ......
Страница 138: ......