
218
13
Application Sample Programs
Measuring Magnetic Materials
Lines 2750 to 2880 Processing when the softkey labeled as “Cole-cole Plot” is pressed
Displays the COLE-COLE plot on the complex plane.
Lines 2900 to 3000 Processing when the softkey labeled as “Re-measure” is pressed.
Lines 3020 to 3120 Processing when the softkey labeled as “Quit” is pressed.
Example 13-4
Magnetic Material (Relative Permeability) Measurement
10 !*************************************************
20 !* 4294A + 16454A Permeability Measurement
30 !* Instrument BASIC Sample Program
40 !*************************************************
50 DIM R_data(1:801,1:2),X_data(1:801,1:2),Freq(1:801)
60 DIM Urr_data(1:801,1:2),Uri_data(1:801,1:2),Urm_data(1:801,1:2)
70 DIM Cole_data(1:801,1:2),Tan_d_data(1:801,1:2)
80 INTEGER Result
90 !
100 ASSIGN @Agt4294a TO 800
110 Scode=8
120 OUTPUT @Agt4294a;"DISA HIHB"
130 OUTPUT @Agt4294a;"HOLD"
140 Constants: !
150 U0=1.257E-6
160 !########################################## Main
170 Disp_proc: !
180 CLEAR SCREEN
190 PRINT "4294A + 16454A Permeability Measurement Program"
200 PRINT ""
210 PRINT "[ ] Perform the adapter setup (7mm)"
220 PRINT "[ ] Perform fixture compensation"
230 PRINT "x: done, s: skip."
240 !
250 Adjustment: !
260 GOSUB Adapter_setup
270 GOSUB Fixt_compen
280 Meas:!
290 GOSUB Input_size
300 GOSUB Sweep
310 GOSUB Calc
320 GOTO Display
330 !
340 !########################################## Sub-routines
350 Adapter_setup: !
360 OUTPUT @Agt4294a;"E4TP APC7"
370 DISP "Perform the adapter setup? 0:Yes, 1:Skip";
380 INPUT "",Ans
390 IF Ans=1 THEN
400 PRINT TABXY(2,3);"s] "
410 RETURN
420 END IF
430 F_adapt_setup=1
440 OUTPUT @Agt4294a;"PRES"
450 PRINT TABXY(5,3);"->"
460 OUTPUT @Agt4294a;"ESNB 256; *SRE 4"
470 !
480 OUTPUT @Agt4294a;"*CLS"
490 ON INTR Scode GOTO Phase_meas_end
500 ENABLE INTR Scode;2
510 DISP "Connect OPEN (0S) to the 7mm port and press 'Continue'."
520 PAUSE
530 DISP "Now measuring PHASE data..."
540 OUTPUT @Agt4294a;"ECALP"
550 Phase_meas_wait: GOTO Phase_meas_wait
Содержание 4294A
Страница 4: ...4 ...
Страница 18: ...18 Contents ...
Страница 24: ...24 Chapter1 To make effective use of this manual Other manuals attached to this unit ...
Страница 94: ...94 Chapter6 Reading Writing Measurement Data Reading Writing Data ...
Страница 110: ...110 Chapter7 Processing Measurement Results Analyzing Measurement Results ...
Страница 130: ...130 Chapter9 Communication with External Equipment Using the I O Ports Sample Program to Use the I O Port ...
Страница 136: ...136 Chapter10 Handling Errors Sample program for error handling ...
Страница 246: ...246 13 Application Sample Programs File Transfer Function ...
Страница 254: ...254 Chapter15 Setting the Display LCD Sample program for setting the LCD screen ...
Страница 507: ...Index Index 507 Index ...
Страница 508: ...508 Index Index ...
Страница 509: ...Index Index 509 Index ...
Страница 510: ...510 Index Index ...
Страница 511: ...Index Index 511 Index ...
Страница 512: ...512 Index Index ...
Страница 513: ...Index Index 513 Index ...
Страница 514: ...514 Index Index ...
Страница 515: ...Index Index 515 Index ...
Страница 516: ...516 Index Index ...
Страница 517: ...Index Index 517 Index ...
Страница 518: ...518 Index Index ...