Agilent Technologies 8719ES, Руководство программиста

Страница: 406 / 541

Chapter 7 7-43
Programming Examples
Measurement Calibration Examples
250 DIM Array08(1:51,1:2) ! reverse SHORT
260 DIM Array09(1:51,1:2) ! reverse LOAD
270 DIM Array10(1:51,1:2) ! reverse ISOLATION if necessary
280 DIM Array11(1:51,1:2) ! reverse LOAD MATCH
290 DIM Array12(1:51,1:2) ! reverse TRANS
300 !
310 ! Initialize the system
320 ASSIGN @Nwa TO 716 ! Assign an I/O path for the analyzer
330 ABORT 7 ! Generate an IFC (Interface Clear)
340 CLEAR @Nwa ! SDC (Selected Device Clear) analyzer
350 CLEAR SCREEN
360 !
370 ! Query the instrument ID string
380 OUTPUT @Nwa;”IDN?;”
390 ENTER @Nwa;Id$
400 !
410 Is_8753=POS(Id$,”8753”) ! Is_8753 = 0 if not 8753, non-zero if 8753
420 PRINT Is_8753
430 !
440 ! Preset the analyzer, set to 51 points, ASCII format, desired cal
450 ! kit definition (7mm). Sweep time set to 1 second (could be whatever
460 ! user would like), analyzer put in hold mode.
470 !
480 OUTPUT @Nwa;”opc?;pres;”
490 ENTER @Nwa;X
500 OUTPUT @Nwa;”POIN51;FORM4;”
510 OUTPUT @Nwa;”CALK7MM;SWET1S;HOLD;”
520 !
530 ! Select S11 to gather the forward reflection standards
540 ! (open, short, load).
550 !
560 OUTPUT @Nwa;”S11;”
570 INPUT “CONNECT OPEN AT PORT 1”,X
580 OUTPUT @Nwa;”opc?;sing;”
590 ENTER @Nwa;X
600 BEEP
610 OUTPUT @Nwa;”OUTPRAW1”
620 ENTER @Nwa;Array01(*)
630 !
640 INPUT “CONNECT SHORT AT PORT 1”,X
650 OUTPUT @Nwa;”opc?;sing;”
660 ENTER @Nwa;X
670 BEEP
680 OUTPUT @Nwa;”OUTPRAW1”
690 ENTER @Nwa;Array02(*)
700 !
710 INPUT “CONNECT BROADBAND LOAD AT PORT 1”,X
720 OUTPUT @Nwa;”opc?;sing;”
730 ENTER @Nwa;X
740 BEEP
750 OUTPUT @Nwa;”OUTPRAW1”
760 ENTER @Nwa;Array03(*)
770 !
780 ! Now select S22 to gather the reverse reflection standards.
790 !
800 OUTPUT @Nwa;”S22”
810 INPUT “CONNECT OPEN AT PORT 2”,X
820 OUTPUT @Nwa;”opc?;sing;”