13 221
Application Sample Programs
Measuring Magnetic Materials
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
1820 Urr_data(I,2)=0
1830 Uri_data(I,1)=R_data(I,1)/(Freq(I)*U0*H*LOG(C/B))
1840 Uri_data(I,2)=0
1850 Tan_d_data(I,1)=Uri_data(I,1)/ABS(Urr_data(I,1))
1860 Tan_d_data(I,2)=0
1870 Urm_data(I,1)=SQR(Urr_data(I,1)^2+Uri_data(I,1)^2)
1880 Urm_data(I,2)=0
1890 Cole_data(I,1)=Urr_data(I,1)
1900 Cole_data(I,2)=Uri_data(I,1)
1910 NEXT I
1920 RETURN
1930 !
1940 Display: !
1950 ON KEY 1 LABEL "ur' - tan d",1 GOSUB Disp_ur_d
1960 ON KEY 2 LABEL "|ur| - tan d",1 GOSUB Disp_um_d
1970 ON KEY 3 LABEL "ur' - ur''",1 GOSUB Disp_ur_ui
1980 ON KEY 4 LABEL "Cole-cole Plot",1 GOSUB Disp_cole
1990 ON KEY 7 LABEL "Quit",1 GOTO Quit
2000 ON KEY 8 LABEL "Re-measure",1 GOTO Re_meas
2010 OUTPUT @Agt4294a;"USKEY"
2020 BEEP
2030 DISP "Select softkey to display each parameter."
2040 Loop: GOTO Loop
2050 !
2060 Disp_ur_d: !
2070 DISP "Now loading data..."
2080 OUTPUT @Agt4294a;"MEAS IMD"
2090 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
2100 OUTPUT @Agt4294a;"TRAC A"
2110 OUTPUT @Agt4294a;"INPUDTRC ";
2120 FOR I=1 TO Nop
2130 OUTPUT @Agt4294a;Urr_data(I,1),Urr_data(I,2);
2140 NEXT I
2150 OUTPUT @Agt4294a;""
2160 OUTPUT @Agt4294a;"AUTO"
2170 OUTPUT @Agt4294a;"TRAC B"
2180 FOR I=1 TO Nop
2190 OUTPUT @Agt4294a;"INPUDTRC ";
2200 OUTPUT @Agt4294a;Tan_d_data(I,1),Tan_d_data(I,2);
2210 NEXT I
2220 OUTPUT @Agt4294a;""
2230 OUTPUT @Agt4294a;"AUTO"
2240 OUTPUT @Agt4294a;"TRAC A"
2250 BEEP
2260 DISP "A: ur' B: tan d "
2270 RETURN
2280 !
2290 Disp_um_d: !
2300 DISP "Now loading data..."
2310 OUTPUT @Agt4294a;"MEAS IMD"
2320 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
2330 OUTPUT @Agt4294a;"TRAC A"
2340 OUTPUT @Agt4294a;"INPUDTRC ";
2350 FOR I=1 TO Nop
2360 OUTPUT @Agt4294a;Urm_data(I,1),Urm_data(I,2);
2370 NEXT I
2380 OUTPUT @Agt4294a;""
2390 OUTPUT @Agt4294a;"AUTO"
2400 OUTPUT @Agt4294a;"TRAC B"
2410 FOR I=1 TO Nop
2420 OUTPUT @Agt4294a;"INPUDTRC ";
2430 OUTPUT @Agt4294a;Tan_d_data(I,1),Tan_d_data(I,2);
2440 NEXT I
2450 OUTPUT @Agt4294a;""
To Next Page
Loading...
Need help?
General
