Agilent Technologies 4294A Service Manual download pdf (Page 218)

100

101

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

1 2 ... 213 214 215 216 217 218 219 220 221 222 223 ... 517 518

Comments to this Manuals

No comments

Agilent Technologies 4294A Service Manual Page 218

Comments to this Manuals

Related products and manuals for Multimeters Agilent Technologies 4294A