Sample Program For Non-Contacting Electrode Method - Agilent Technologies 4294A Programming Manual

Sample Program for Non-Contacting Electrode Method

Example 13-3 shows a sample program to measure dielectric materials (non-contacting
electrode method) (for HP Instrument BASIC). You can find the source file of this
program, named permi_nc.bas, on the sample program disk. This programs is very similar
to Example 13-2, and therefore only its listing is given here.
Example 13-3 Dielectric (Relative Permittivity) Measurement (Non-Contacting Electrode Method)
10
20
30
40
50
60
70
80
90
100
110
120
130
140 Constants:
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 Disp_proc:!
400
410
420
430
440
450
460
470
480
490
500 Adjustment: !
510
520
530
540
13
!**************************************************************
!* 4294A + 16451B Permittivity Measurement (Non-Contact Method)
!* Instrument BASIC Sample Program
!**************************************************************
DIM Cp_data(1:801,1:2),D_data(1:801,1:2)
DIM Cp_data1(1:801,1:2),D_data1(1:801,1:2),Err_data(1:801,1:2)
DIM Cp_data2(1:801,1:2),D_data2(1:801,1:2),D_data3(1:801,1:2)
DIM Eri_data(1:801,1:2),Erm_data(1:801,1:2),Cole_data(1:801,1:2)
INTEGER Result
!
ASSIGN @Agt4294a TO 800
OUTPUT @Agt4294a;"DISA HIHB"
OUTPUT @Agt4294a;"HOLD"
!
E0=8.854E-12
Adj_center=100000.
Adj_up_limit_a=1.E-9
Adj_low_limit_a=7.E-10
Adj_up_limit_b=2.E-11
Adj_low_limit_b=1.2E-11
Load_center=100000.
Load_ave=4
Load_bw=5
Load_up_limit_a=5.05E-11
Load_lo_limit_a=4.95E-11
Load_up_limit_b=5.05E-12
Load_lo_limit_b=4.95E-12
Open_r=1.E+11
Open_l=0
Short_r=0
Short_l=0
Load_g=0
Nop=201
Ave=1
Bw=3
D_elec_a=.038
D_elec_b=.005
!########################################## Main
CLEAR SCREEN
PRINT "4294A + 16451B Permittivity Measurement Program"
PRINT " (Non-Contact Method Measurment)"
PRINT ""
PRINT "[ ] Select the main electrode of 16451B"
PRINT "[ ] Perform the adapter setup (1m cable)"
PRINT "[ ] Adjust the electrodes (Parallelizing)"
PRINT "[ ] Perform fixture compensation"
PRINT "x: done, s: skip, n: not required."
!
GOSUB Select_elec
GOSUB Adapter_setup
GOSUB Adjust
GOSUB Compen
Application Sample Programs
Measuring Dielectric Material
! [pF]
! [ohm]
! [m]
205