Agilent Technologies 4294A, Programming Manual

Page: 210 / 518

210 13
Application Sample Programs
Measuring Dielectric Material
3090 OUTPUT @Agt4294a;"TRAC A"
3100 OUTPUT @Agt4294a;"AUTO"
3110 OUTPUT @Agt4294a;"OUTPDTRC?"
3120 ENTER @Agt4294a USING "%,K";Cp_data(*)
3130 OUTPUT @Agt4294a;"TRAC B"
3140 OUTPUT @Agt4294a;"AUTO"
3150 OUTPUT @Agt4294a;"OUTPDTRC?"
3160 ENTER @Agt4294a USING "%,K";D_data(*)
3170 RETURN
3180 !
3190 Calc: !
3200 FOR I=1 TO Nop
3210
D_data3(I,1)=(D_data2(I,1)+Err_data(I,1)*(D_data2(I,1)-D_data1(I,1))*((T
g/T_dut)-1))
3220 D_data3(I,2)=0
3230 Err_data(I,1)=1/(1-(1-(Cp_data1(I,1)/Cp_data2(I,1)))*(Tg/T_dut))
3240 Err_data(I,2)=0
3250 Eri_data(I,1)=Err_data(I,1)*D_data3(I,1)
3260 Eri_data(I,2)=0
3270 Erm_data(I,1)=SQR(Err_data(I,1)^2+Eri_data(I,1)^2)
3280 Erm_data(I,2)=0
3290 Cole_data(I,1)=Err_data(I,1)
3300 Cole_data(I,2)=Eri_data(I,1)
3310 NEXT I
3320 RETURN
3330 !
3340 Display:!
3350 ON KEY 1 LABEL "er' - tan d",1 GOSUB Disp_er_d
3360 ON KEY 2 LABEL "|er| - tan d",1 GOSUB Disp_em_d
3370 ON KEY 3 LABEL "er' - er''",1 GOSUB Disp_er_ei
3380 ON KEY 4 LABEL "Cole-cole Plot",1 GOSUB Disp_cole
3390 ON KEY 7 LABEL "Quit",1 GOTO Quit
3400 ON KEY 8 LABEL "Re-measure",1 GOTO Re_meas
3410 OUTPUT @Agt4294a;"USKEY"
3420 BEEP
3430 DISP "Select softkey to display each parameter."
3440 Loop: GOTO Loop
3450 !
3460 Disp_er_d: !
3470 DISP "Now loading data..."
3480 OUTPUT @Agt4294a;"MEAS CPD"
3490 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3500 OUTPUT @Agt4294a;"TRAC A"
3510 OUTPUT @Agt4294a;"INPUDTRC ";
3520 FOR I=1 TO Nop
3530 OUTPUT @Agt4294a;Err_data(I,1),Err_data(I,2);
3540 NEXT I
3550 OUTPUT @Agt4294a;""
3560 OUTPUT @Agt4294a;"AUTO"
3570 OUTPUT @Agt4294a;"TRAC B"
3580 FOR I=1 TO Nop
3590 OUTPUT @Agt4294a;"INPUDTRC ";
3600 OUTPUT @Agt4294a;D_data3(I,1),D_data3(I,2);
3610 NEXT I
3620 OUTPUT @Agt4294a;""
3630 OUTPUT @Agt4294a;"AUTO"
3640 OUTPUT @Agt4294a;"TRAC A"
3650 BEEP
3660 DISP "A: er' B: tan d / Thickness: ";T_dut*1000;"[mm]"
3670 RETURN
3680 !
3690 Disp_em_d: !
3700 DISP "Now loading data..."