
7
Example
4
-
Finding
the
P
olarization
Dependence
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
!
Time
to
insert
the
DUT
630
!
640
TABXY(10,9);"Hit
ENTER
when
you
have
inserted
the
DUT!"
650
INPUT
Dummy
660
!
670
!
Set
up
the
instruments
for
slow
scanning
of
the
sphere,
and
at
fast
680
!
measurement
time
to
sample
the
power
690
!
700
OUTPUT
Pol;"psphere:rate
0"
710
OUTPUT
Mm;"sens2:pow:atime
20ms"
720
OUTPUT
Mm;"sens2:pow:unit
dbm"
730
!
Set
values
that
have
to
change
for
maximum
and
minimum
740
Minpow=100
750
Maxpow=-100
760
!
770
!
Start
the
scanning
780
!
790
OUTPUT
Pol;"init"
800
!
810
!
Sample
enough
values
to
be
sure
of
catching
the
maximum
and
minimum
820
!
830
FOR
Reading=1
TO
500
840
OUTPUT
Mm;"read2:pow?"
850
ENTER
Mm;Power
860
IF
Power<Minpow
THEN
Minpow=Power
870
IF
Power>Maxpow
THEN
Maxpow=Power
890
NEXT
Reading
Programming
Examples
7-13