Table of Contents
Advertisement
Agilent 8169A Polarization Controller, Second Edition
Listing
Table 17
10
!------------------------------------------
!
20
30
! Programming Example 4
40
!
50
! Finding the Polarization Dependence
60
!
70
!------------------------------------------
80
!
90
! Definitions and Initializations
100
!
110
Pol=724
120
Mm=722
130
!
140
OUTPUT Mm;"*rst;*cls"
150
OUTPUT Pol;"*rst;*cls"
160
!
170
! Setup the instruments, with the output of the source connected
180
! to the input of the sensor and wait for the ENTER key to be
190
! pressed before continuing
200
!
210
CLEAR SCREEN
220
True=1
230
False=0
240
!
! Set the Wavelength and the averaging time for the sensor
250
260
!
270
OUTPUT Mm;"sour:pow:wave?"
280
ENTER Mm;Wl
290
OUTPUT Mm;"sens2:pow:wave ";Wl
300
OUTPUT Mm;"sens2:pow:atime 200ms"
310
!
320
! Switch on the source
330
!
340
OUTPUT Mm;"sour:pow:state on"
350
!
360
! Find the position of the polarizing filter, that allows the maximum
370
! power through
380
!
390
Angle=0
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
Programming Examples
95
Advertisement
Chapters
Table of Contents
