
7
Example
3
-
Finding
the
Optimum
Transmission
SoP
400
Inc=10
410
Maxward=False
420
OUTPUT
Mm;"read2:power?"
430
ENTER
Mm;Maxpow
440
REPEAT
450
Angle=Angle+Inc
460
OUTPUT
Pol;"pos:pol
";Angle
470
OUTPUT
Mm;"read2:power?"
480
ENTER
Mm;Newpow
490
IF
Newpow<Maxpow
THEN
500
IF
Maxward=True
THEN
510
Inc=-Inc/2
520
ELSE
530
Inc=-Inc
540
Maxward=True
550
END
IF
560
ELSE
570
Maxpow=Newpow
580
Maxward=True
590
END
IF
600
UNTIL
ABS(Inc)<.05
610
!
620
!
Now
search
for
the
worst-case
polarization
when
changing
thetap
630
!
640
Angle=0
650
Inc=10
660
Minward=False
670
Minpow=Maxpow
680
REPEAT
690
Angle=Angle+Inc
700
OUTPUT
Pol;"circle:thetap
";Angle
710
OUTPUT
Mm;"read2:power?"
720
ENTER
Mm;Newpow
730
IF
Newpow>Minpow
THEN
740
IF
Minward=True
THEN
750
Inc=-Inc/2
760
ELSE
770
Inc=-Inc
780
Minward=True
790
END
IF
800
ELSE
810
Minpow=Newpow
820
Minward=True
830
END
IF
840
UNTIL
ABS(Inc)<.05
850
!
860
!
Now
search
for
the
overall
worst-case
polarization
by
changing
epsilonb
870
!
880
Angle=0
Programming
Examples
7-9