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
To Next Page
Loading...
Need help?
General
