Table of Contents
Advertisement
1520
1530
1540
1550
1560 SUBEND
1570 !
1580 Format_num:DEF FNFormat_num$(Value,Not_exp_max,INTEGER Length,
Not_exp_img$,Exp_img$)
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750 FNEND
46 Verification Tests
OUTPUT @Pwr_mtr;VAL$(Freq/1.E+6)&"MHZ"
OUTPUT @Pwr_mtr;"T3"
ENTER @Pwr_mtr;Rdg
Rdg=SQRT(ABS(Rdg)*50)
INTEGER Diff
SELECT ABS(Value)
CASE <1.E-9,>=1.E+10
IF NOT POS(Exp_img$,"ZZ") THEN
OUTPUT String$ USING Exp_img$&"Z,#";Value
ELSE
OUTPUT String$ USING Exp_img$&",#";Value
END IF
CASE <1.E-4,>=Not_exp_max
OUTPUT String$ USING Exp_img$&",#";Value
CASE ELSE
OUTPUT String$ USING Not_exp_img$&",#";Value
END SELECT
Diff=Length-LEN(String$)
IF Diff>0 THEN String$=RPT$(" ",Diff)&String$
RETURN String$
!Expected frequency
!Trigger power meter w/settling
!Get reading
!Convert from watts to volts
Chapter 2
Advertisement
Table of Contents
