Agilent Technologies 4294A Wartungshandbuch Seite 221

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 518
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 220
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;""
Seitenansicht 220
1 2 ... 216 217 218 219 220 221 222 223 224 225 226 ... 517 518

Kommentare zu diesen Handbüchern

Keine Kommentare