Table of Contents
Advertisement
1330
1340
1350
1360
1370
1390 SUBEND
1400 !
1410 SUB Corr_factor(Corr_factor)
1420
1430
1440
1450
1450
1470
1480
1490
1500
1510
1520
1530
1540
1550
1560
1570
1580 SUBEND
1590 !
1600 SUB System_errs(@Path,INTEGER Err)
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730 SUBEND
Chapter 3
OUTPUT @Pwr_mtr;VAL$(Freq/1.E+6)&"MHZ"
OUTPUT @Pwr_mtr;"T3"
ENTER @Pwr_mtr;Rdg
!
Rdg=SQRT(ABS(Rdg)*50)
!Measure output at 100 kHz with Power Meter & DMM to get correction factor
COM @Afg,@Dmm,@Pwr_mtr
INTEGER Setup
Setup=1
Xover_freq=1.E+5
!
!Set up AFG for 1 V peak, 100 kHz sine
OUTPUT @Afg;"VOLT 1VPK;";
OUTPUT @Afg;":FREQ "&VAL$(Xover_freq)
OUTPUT @Afg;"INIT:IMM"
!
!Measure output with Power Meter and DMM
Pm_flat_rdg(Xover_freq,Pm_rdg,1)
Dmm_flat_rdg(Xover_freq,Dmm_rdg,1)
Corr_factor=Dmm_rdg/Pm_rdg
OUTPUT @Afg;"*RST;*CLS"
DIM Message$[255]
INTEGER Code
!
Err=0
REPEAT
OUTPUT @Path;"SYST:ERR?"
ENTER @Path;Code,Message$
IF Code THEN
Err=1
PRINT Code,Message$
END IF
UNTIL NOT Code
!Expected frequency
!Trigger power meter w/settling
!Get reading
!Convert from watts to volts
Adjustments 75
Advertisement
Table of Contents
