13 205
Application Sample Programs
Measuring Dielectric Material
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
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 !* 4294A + 16451B Permittivity Measurement (Non-Contact Method)
30 !* Instrument BASIC Sample Program
40 !**************************************************************
50 DIM Cp_data(1:801,1:2),D_data(1:801,1:2)
60 DIM Cp_data1(1:801,1:2),D_data1(1:801,1:2),Err_data(1:801,1:2)
70 DIM Cp_data2(1:801,1:2),D_data2(1:801,1:2),D_data3(1:801,1:2)
80 DIM Eri_data(1:801,1:2),Erm_data(1:801,1:2),Cole_data(1:801,1:2)
90 INTEGER Result
100 !
110 ASSIGN @Agt4294a TO 800
120 OUTPUT @Agt4294a;"DISA HIHB"
130 OUTPUT @Agt4294a;"HOLD"
140 Constants: !
150 E0=8.854E-12
160 Adj_center=100000.
170 Adj_up_limit_a=1.E-9
180 Adj_low_limit_a=7.E-10
190 Adj_up_limit_b=2.E-11
200 Adj_low_limit_b=1.2E-11
210 Load_center=100000.
220 Load_ave=4
230 Load_bw=5
240 Load_up_limit_a=5.05E-11 ! [pF]
250 Load_lo_limit_a=4.95E-11
260 Load_up_limit_b=5.05E-12
270 Load_lo_limit_b=4.95E-12
280 Open_r=1.E+11 ! [ohm]
290 Open_l=0
300 Short_r=0
310 Short_l=0
320 Load_g=0
330 Nop=201
340 Ave=1
350 Bw=3
360 D_elec_a=.038 ! [m]
370 D_elec_b=.005
380 !########################################## Main
390 Disp_proc:!
400 CLEAR SCREEN
410 PRINT "4294A + 16451B Permittivity Measurement Program"
420 PRINT " (Non-Contact Method Measurment)"
430 PRINT ""
440 PRINT "[ ] Select the main electrode of 16451B"
450 PRINT "[ ] Perform the adapter setup (1m cable)"
460 PRINT "[ ] Adjust the electrodes (Parallelizing)"
470 PRINT "[ ] Perform fixture compensation"
480 PRINT "x: done, s: skip, n: not required."
490 !
500 Adjustment: !
510 GOSUB Select_elec
520 GOSUB Adapter_setup
530 GOSUB Adjust
540 GOSUB Compen