Agilent Technologies 4294A Programming Manual page 209

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