Table of Contents
Advertisement
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120 Set_afg_freq:
1130
1140
1150
1160
1170 SUBEND
1180 !
1190 Dmm_flat_rdg:SUB Dmm_flat_rdg(Freq,Rdg,INTEGER Dmm_setup)
1200
1210
1220
1230
1240
'Continue'"
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370 SUBEND
1380 !
1390 Pm_flat_rdg:SUB Pm_flat_rdg(Freq,Rdg,INTEGER Pm_setup)
1400
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
Chapter 2
!
Freq$=FNFormat_num$(Test_freq(I),1.E+5,9,"M6D","MD.2DESZ")
Result_v$=FNFormat_num$(Flat_result,1.E+3,9,"M2D.5D","MD.3DESZ")
Result_dbm$=FNFormat_num$(Flat_error_dbm,10,9,"M2D.5D","MD.3DESZ")
PRINT USING "9A,5X,9A,5X,9A";Freq$,Result_v$,Result_dbm$
NEXT I
!End of loop
PRINT
!
DEALLOCATE Test_freq(*),Results(*)
SUBEXIT
!
!
OUTPUT @Afg;"ABORT"
OUTPUT @Afg;"FREQ "&VAL$(Freq)
OUTPUT @Afg;"INIT:IMM"
RETURN
COM @Afg,@Dmm,@Pwr_mtr
!
IF Dmm_setup THEN
DISP "Connect DMM to AFG Output (with 50ohm termination), then press
PAUSE
DISP
OUTPUT @Dmm;"PRESET NORM;FUNC ACV;SETACV SYNC;TRIG HOLD"
OUTPUT @Dmm;"RANGE 10;DELAY .1"
WAIT 1
Dmm_setup=0
END IF
!
OUTPUT @Dmm;"ACBAND "&VAL$(Freq*.9)&","&VAL$(Freq*1.1)
WAIT .5
OUTPUT @Dmm;"TRIG SGL"
ENTER @Dmm;Rdg
COM @Afg,@Dmm,@Pwr_mtr
!
IF Pm_setup THEN
DISP "Connect Power Meter to AFG Output, then press 'Continue'"
PAUSE
DISP
OUTPUT @Pwr_mtr;"IP"
OUTPUT @Pwr_mtr;"AU M4 WT"
WAIT .5
Pm_setup=0
END IF
(Continued on Next Page)
!If true, set up DMM
!Otherwise, skip setup
!Clear flag so setup is only performed once
!If true, then set up power meter
!Otherwise skip setup
!Instrument preset
!Auto operation, RF power, watts
!Clear flag so setup is only performed once
Verification Tests 45
Advertisement
Table of Contents
