202 13
Application Sample Programs
Measuring Dielectric Material
2990 OUTPUT @Agt4294a;"*OPC?"
3000 ENTER @Agt4294a;Opc
3010 DISP "Now getting data..."
3020 OUTPUT @Agt4294a;"TRAC A"
3030 OUTPUT @Agt4294a;"AUTO"
3040 OUTPUT @Agt4294a;"OUTPDTRC?"
3050 ENTER @Agt4294a USING "%,K";Cp_data(*)
3060 OUTPUT @Agt4294a;"TRAC B"
3070 OUTPUT @Agt4294a;"AUTO"
3080 OUTPUT @Agt4294a;"OUTPDTRC?"
3090 ENTER @Agt4294a USING "%,K";D_data(*)
3100 RETURN
3110 !
3120 Calc: !
3130 FOR I=1 TO Nop
3140 Err_data(I,1)=(T_dut*Cp_data(I,1))/(PI*E0*(D_elec/2)^2)
3150 Err_data(I,2)=0
3160 Eri_data(I,1)=Err_data(I,1)*D_data(I,1)
3170 Eri_data(I,2)=0
3180 Erm_data(I,1)=SQR(Err_data(I,1)^2+Eri_data(I,1)^2)
3190 Erm_data(I,2)=0
3200 Cole_data(I,1)=Err_data(I,1)
3210 Cole_data(I,2)=Eri_data(I,1)
3220 NEXT I
3230 RETURN
3240 !
3250 Display:!
3260 ON KEY 1 LABEL "er' - tan d",1 GOSUB Disp_er_d
3270 ON KEY 2 LABEL "|er| - tan d",1 GOSUB Disp_em_d
3280 ON KEY 3 LABEL "er' - er''",1 GOSUB Disp_er_ei
3290 ON KEY 4 LABEL "Cole-cole Plot",1 GOSUB Disp_cole
3300 ON KEY 7 LABEL "Quit",1 GOTO Quit
3310 ON KEY 8 LABEL "Re-measure",1 GOTO Re_meas
3320 OUTPUT @Agt4294a;"USKEY"
3330 BEEP
3340 DISP "Select softkey to display each parameter."
3350 Loop:GOTO Loop
3360 !
3370 Disp_er_d: !
3380 DISP "Now loading data..."
3390 OUTPUT @Agt4294a;"MEAS CPD"
3400 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3410 OUTPUT @Agt4294a;"TRAC A"
3420 OUTPUT @Agt4294a;"INPUDTRC ";
3430 FOR I=1 TO Nop
3440 OUTPUT @Agt4294a;Err_data(I,1),Err_data(I,2);
3450 NEXT I
3460 OUTPUT @Agt4294a;""
3470 OUTPUT @Agt4294a;"AUTO"
3480 OUTPUT @Agt4294a;"TRAC B"
3490 FOR I=1 TO Nop
3500 OUTPUT @Agt4294a;"INPUDTRC ";
3510 OUTPUT @Agt4294a;D_data(I,1),D_data(I,2);
3520 NEXT I
3530 OUTPUT @Agt4294a;""
3540 OUTPUT @Agt4294a;"AUTO"
3550 OUTPUT @Agt4294a;"TRAC A"
3560 BEEP
3570 DISP "A: er' B: tan d / Thickness: ";T_dut*1000;"[mm]"
3580 RETURN
3590 !
3600 Disp_em_d: !
3610 DISP "Now loading data..."
3620 OUTPUT @Agt4294a;"MEAS CPD"
To Next Page
Loading...
Need help?
General
