
7
Example
3
-
Finding
the
Optimum
Transmission
SoP
890
Inc=10
900
Minward=False
910
REPEAT
920
Angle=Angle+Inc
930
OUTPUT
Pol;"circle:epsilonb
";Angle
940
OUTPUT
Mm;"read2:power?"
950
ENTER
Mm;Newpow
960
IF
Newpow>Minpow
THEN
970
IF
Minward=True
THEN
980
Inc=-Inc/2
990
ELSE
1000
Inc=-Inc
1010
Minward=True
1020
END
IF
1030
ELSE
1040
Minpow=Newpow
1050
Minward=True
1060
END
IF
1070
UNTIL
ABS(Inc)<.05
1080
!
1090
!
Now
set
the
optimum
by
moving
to
the
opposite
side
of
the
1100
!
sphere
1110
!
1120
OUTPUT
Pol;"circle:epsilonb
";Angle+180
1130
!
1140
!
And
finish
.
.
.
1150
!
1160
OUTPUT
Mm;"sour:pow:state
off"
1170
END
7-10
Programming
Examples