13 211
Application Sample Programs
Measuring Dielectric Material
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
3710 OUTPUT @Agt4294a;"MEAS CPD"
3720 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3730 OUTPUT @Agt4294a;"TRAC A"
3740 OUTPUT @Agt4294a;"INPUDTRC ";
3750 FOR I=1 TO Nop
3760 OUTPUT @Agt4294a;Erm_data(I,1),Erm_data(I,2);
3770 NEXT I
3780 OUTPUT @Agt4294a;""
3790 OUTPUT @Agt4294a;"AUTO"
3800 OUTPUT @Agt4294a;"TRAC B"
3810 FOR I=1 TO Nop
3820 OUTPUT @Agt4294a;"INPUDTRC ";
3830 OUTPUT @Agt4294a;D_data3(I,1),D_data3(I,2);
3840 NEXT I
3850 OUTPUT @Agt4294a;""
3860 OUTPUT @Agt4294a;"AUTO"
3870 OUTPUT @Agt4294a;"TRAC A"
3880 BEEP
3890 DISP "A: |er| B: tan d / Thickness: ";T_dut*1000;"[mm]"
3900 RETURN
3910 !
3920 Disp_er_ei: !
3930 DISP "Now loading data..."
3940 OUTPUT @Agt4294a;"MEAS CPD"
3950 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3960 OUTPUT @Agt4294a;"TRAC A"
3970 OUTPUT @Agt4294a;"INPUDTRC ";
3980 FOR I=1 TO Nop
3990 OUTPUT @Agt4294a;Err_data(I,1),Err_data(I,2);
4000 NEXT I
4010 OUTPUT @Agt4294a;""
4020 OUTPUT @Agt4294a;"AUTO"
4030 OUTPUT @Agt4294a;"TRAC B"
4040 FOR I=1 TO Nop
4050 OUTPUT @Agt4294a;"INPUDTRC ";
4060 OUTPUT @Agt4294a;Eri_data(I,1),Eri_data(I,2);
4070 NEXT I
4080 OUTPUT @Agt4294a;""
4090 OUTPUT @Agt4294a;"AUTO"
4100 OUTPUT @Agt4294a;"TRAC A"
4110 BEEP
4120 DISP "A: er' B: er'' / Thickness: ";T_dut*1000;"[mm]"
4130 RETURN
4140 !
4150 Disp_cole: !
4160 DISP "Now loading data..."
4170 OUTPUT @Agt4294a;"MEAS COMP"
4180 OUTPUT @Agt4294a;"HIDI ON;SPLD OFF"
4190 OUTPUT @Agt4294a;"TRAC A"
4200 OUTPUT @Agt4294a;"INPUDTRC ";
4210 FOR I=1 TO Nop
4220 OUTPUT @Agt4294a;Cole_data(I,1),Cole_data(I,2);
4230 NEXT I
4240 OUTPUT @Agt4294a;""
4250 OUTPUT @Agt4294a;"AUTO"
4260 BEEP
4270 DISP "Cole-cole Plot Thickness: ";T_dut*1000;"[mm]"
4280 RETURN
4290 !
4300 Re_meas: !
4310 DISP "Measure once more? 0:Yes, 1:Cancel";
4320 INPUT "",Ans
4330 SELECT Ans
4340 CASE 0
To Next Page
Loading...
Need help?
General
