Agilent Technologies 4294A Programming Manual page 201

2350 !
2360 OUTPUT @Agt4294a;"STAR ";Start
2370 OUTPUT @Agt4294a;"STOP ";Stop
2380 OUTPUT @Agt4294a;"SWPT ";Swe_type$
2390 OUTPUT @Agt4294a;"POIN ";Nop
2400 OUTPUT @Agt4294a;"BWFACT ";Bw
2410 OUTPUT @Agt4294a;"POWMOD VOLT;POWE ";Vosc
2420 OUTPUT @Agt4294a;"DCOMOPENG ";Load_g
2430 OUTPUT @Agt4294a;"DCOMOPENC ";Load_c/1.E-15
2440 OUTPUT @Agt4294a;"DCOMSHORR ";Short_r
2450 OUTPUT @Agt4294a;"DCOMSHORL ";Short_l
2460 OUTPUT @Agt4294a;"DCOMLOADR ";Open_r
2470 OUTPUT @Agt4294a;"DCOMLOADL ";Open_l
2480 !
2490 Result=FNUser_Corr(@Agt4294a,"Compen_Open")
2500 IF Result<>0 THEN Prog_end
2510 !
2520 !
2530 DISP "Set 16451B OPEN condition and press 'Continue'."
2540 PAUSE
2550 Result=FNUser_Corr(@Agt4294a,"Compen_Load")
2560 IF Result<>0 THEN Prog_end
2570 !
2580 !
2590 DISP "Set 16451B SHORT condition and press 'Continue'."
2600 PAUSE
2610 Result=FNUser_Corr(@Agt4294a,"Compen_Short")
2620 IF Result<>0 THEN Prog_end
2630 !
2640 !
2650 DISP ""
2660 PRINT TABXY(2,7);"x]
2670 RETURN
2680 !
2690 Input_t:!
2700 DISP "Thickness of MUT [mm] = ?";
2710 INPUT "",Ans
2720 T_dut=Ans/1000
2730 RETURN
2740 !
2750 Input_d:!
2760 SELECT Elec$
2770 CASE "A"
2780 D_elec=D_elec_a
2790 RETURN
2800 CASE "B"
2810 D_elec=D_elec_b
2820 RETURN
2830 CASE ELSE
2840 DISP "Diameter of electrode [mm] = ?";
2850 INPUT "",D_elec
2860 D_elec=D_elec*.001
2870 RETURN
2880 END SELECT
2890 RETURN
2900 !
2910 Sweep: !
2920 DISP "Set MUT between the electrodes and press 'Continue'."
2930 PAUSE
2940 OUTPUT @Agt4294a;"DISA BASS"
2950 OUTPUT @Agt4294a;"MEAS CPD"
2960 OUTPUT @Agt4294a;"HIDI OFF"
2970 OUTPUT @Agt4294a;"SING"
2980 DISP "Now measuring Cp-D..."
13
Application Sample Programs
Measuring Dielectric Material
"
201