220 13
Application Sample Programs
Measuring Magnetic Materials
1190 PRINT TABXY(1,11);"Sweep Type: ";Swe_type$;" OSC Level:
";Vosc;"[V] BW: ";Bw;
1200 DISP "Measurement condition is OK? 0:OK, 1:NO";
1210 INPUT "",Ans
1220 IF Ans<>0 THEN Input_config
1230 !
1240 OUTPUT @Agt4294a;"CALP USER"
1250 OUTPUT @Agt4294a;"MEAS IRIM"
1260 OUTPUT @Agt4294a;"STAR ";Start
1270 OUTPUT @Agt4294a;"STOP ";Stop
1280 OUTPUT @Agt4294a;"SWPT ";Swe_type$
1290 OUTPUT @Agt4294a;"POIN ";Nop
1300 OUTPUT @Agt4294a;"BWFACT ";Bw
1310 OUTPUT @Agt4294a;"POWMOD VOLT;POWE ";Vosc
1320 DISP "Insert the MUT holder (without MUT) and press 'Continue'."
1330 PAUSE
1340 Result=FNUser_Corr(@Agt4294a,"Compen_Short")
1350 IF Result<>0 THEN Prog_end
1360 !
1370 !
1380 DISP ""
1390 PRINT TABXY(2,4);"x] "
1400 RETURN
1410 !
1420 Input_size: !
1430 DISP "Outer diameter of MUT [mm] = ?";
1440 INPUT "",Ans
1450 C=Ans/1000
1460 DISP "Inner diameter of MUT [mm] = ?";
1470 INPUT "",Ans
1480 B=Ans/1000
1490 DISP "Height of MUT [mm] = ?";
1500 INPUT "",Ans
1510 H=Ans/1000
1520 RETURN
1530 !
1540 Sweep: !
1550 DISP "Insert MUT (with holder) into fixture and press 'Continue'."
1560 PAUSE
1570 OUTPUT @Agt4294a;"DISA BASS"
1580 OUTPUT @Agt4294a;"MEAS IRIM"
1590 OUTPUT @Agt4294a;"HIDI OFF"
1600 OUTPUT @Agt4294a;"SING"
1610 DISP "Now measuring R-X..."
1620 OUTPUT @Agt4294a;"*OPC?"
1630 ENTER @Agt4294a;Opc
1640 DISP "Now getting data..."
1650 OUTPUT @Agt4294a;"TRAC A"
1660 OUTPUT @Agt4294a;"AUTO"
1670 OUTPUT @Agt4294a;"OUTPDTRC?"
1680 ENTER @Agt4294a USING "%,K";R_data(*)
1690 OUTPUT @Agt4294a;"TRAC B"
1700 OUTPUT @Agt4294a;"AUTO"
1710 OUTPUT @Agt4294a;"OUTPDTRC?"
1720 ENTER @Agt4294a USING "%,K";X_data(*)
1730 OUTPUT @Agt4294a;"OUTPSWPRM?"
1740 ENTER @Agt4294a USING "%,K";Freq(*)
1750 RETURN
1760 !
1770 Calc: !
1780 OUTPUT @Agt4294a;"POIN?"
1790 ENTER @Agt4294a;Nop
1800 FOR I=1 TO Nop
1810 Urr_data(I,1)=(X_data(I,1)/(Freq(I)*U0*H*LOG(C/B)))+1
To Next Page
Loading...
Need help?
General
