Agilent Technologies 4294A Service Manual Page 219

  • Download
  • Add to my manuals
  • Print
  • Page
    / 518
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 218
13 219
Application Sample Programs
Measuring Magnetic Materials
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
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
Page view 218
1 2 ... 214 215 216 217 218 219 220 221 222 223 224 ... 517 518

Comments to this Manuals

No comments