Table of Contents
Advertisement
Programming Examples
96
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
PRINT TABXY(10,9);"Hit ENTER when you have inserted the DUT!"
650
INPUT Dummy
660
!
! Set up the instruments for slow scanning of the sphere, and at fast
670
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
900
!
910
! Calculate (and display) the difference
920
!
930
PRINT TABXY(10,12);"Polarization Dependence",Maxpow-Minpow;"dB"
940
!
950
! Tidy up and leave
960
!
970
OUTPUT Pol;"abort"
980
OUTPUT Mm;"sour:pow:state off"
990
END
Agilent 8169A Polarization Controller, Second Edition
Advertisement
Chapters
Table of Contents
