Agilent Technologies 4294A, Programming Manual

Page: 219 / 518

13 219
Application Sample Programs
Measuring Magnetic Materials
1. Ch
apter
T
itle
2.
Ch
ap
te
r
T
itl
e
1
3
. Application Sample
4
. Chap
te
r T
itle
5. Chap
te
r T
itle
Programs
560 Phase_meas_end: !
570 OUTPUT @Agt4294a;"*CLS"
580 ON INTR Scode GOTO Open_meas_end
590 ENABLE INTR Scode;2
600 DISP "Now measuring OPEN data..."
610 OUTPUT @Agt4294a;"ECALA"
620 Open_meas_wait: GOTO Open_meas_wait
630 Open_meas_end: !
640 OUTPUT @Agt4294a;"*CLS"
650 ON INTR Scode GOTO Short_meas_end
660 ENABLE INTR Scode;2
670 DISP "Connect SHORT (0-OHM) to the 7mm port and press 'Continue'."
680 PAUSE
690 DISP "Now measuring SHORT data..."
700 OUTPUT @Agt4294a;"ECALB"
710 Short_meas_wait: GOTO Short_meas_wait
720 Short_meas_end: !
730 OUTPUT @Agt4294a;"*CLS"
740 ON INTR Scode GOTO Load_meas_end
750 ENABLE INTR Scode;2
760 DISP "Connect LOAD (50-OHM) to the 7mm port and press 'Continue'."
770 PAUSE
780 DISP "Now measuring LOAD data..."
790 OUTPUT @Agt4294a;"ECALC"
800 Load_meas_wait: GOTO Load_meas_wait
810 Load_meas_end: !
820 DISP "Now storing setup data..."
830 OUTPUT @Agt4294a;"ECALDON"
840 DISP ""
850 PRINT TABXY(2,3);"x] "
860 RETURN
870 !
880 Fixt_compen: !
890 DISP "Connect the 16454A to the 7mm port and press 'Continue'."
900 PAUSE
910 IF F_adapt_setup=0 THEN
920 DISP "Perform the fixture compensation? 0:Yes, 1:Skip";
930 INPUT "",Ans
940 IF Ans=1 THEN
950 PRINT TABXY(2,4);"s] "
960 RETURN
970 END IF
980 END IF
990 PRINT TABXY(4,4);"->"
1000 Input_config:!
1010 DISP "Start frequency [Hz] = ?";
1020 INPUT "",Start
1030 DISP "Stop frequency [Hz] = ?";
1040 INPUT "",Stop
1050 DISP "Sweep type? 0:Linear, 1:Log";
1060 INPUT Ans
1070 IF Ans=1 THEN
1080 Swe_type$="LOG"
1090 ELSE
1100 Swe_type$="LIN"
1110 END IF
1120 DISP "OSC level [V] =?";
1130 INPUT "",Vosc
1140 DISP "Number of point? [2-801]";
1150 INPUT Nop
1160 DISP "BW ? [1-5]";
1170 INPUT Bw
1180 PRINT TABXY(1,10);"Start: ";Start;"[Hz] Stop: ";Stop;"[Hz]";"
Nop: ";Nop