
6
Example
4
-
Measuring
a
W
avelength
Characteristic
350
OUTPUT
Tls;"Wavelength
";Wavel
360
OUTPUT
Tls;"power?"
370
Enter
Tls;Power
This
reads
back
the
actual
(maximum)
power
that
is
being
output
380
IF
Power<Maxpower
THEN
Maxpower=Power
W
e
want
to
nd
the
lowest
maximum
power
390
Wavel=Wavel+Stepw
400
UNTIL
Wavel>Stopw+(Stepw/2)
W
e
check
for
the
end
this
way
because
these
are
oating
point
numbers
,
and
they
may
not
fulll
an
end
condition
exactly
410
OUTPUT
Tls;"power
";Maxpower
420
!
430
!
Switch
on
the
laser
source
440
!
450
OUTPUT
Tls;"output
on"
460
WAIT
2
470
!
480
!
Measure
the
power
over
the
range
490
!
500
Wavel=Startw
510
REPEAT
520
OUTPUT
Tls;"Wavelength
";Wavel
530
OUTPUT
Mm;"sense1:power:wavelength
";Wavel
540
WAIT
1
550
OUTPUT
Mm;"read1:power?"
560
ENTER
Mm;A
570
"The
power
read
at";Wavel*1.E+9;"nm
is";A*1.E+6;"uW"
580
Wavel=Wavel+Stepw
590
UNTIL
Wavel>Stopw+(Stepw/2)
600
!
610
END
Programming
Examples
6-11
Summary of Contents for 8167A
Page 2: ......
Page 4: ......
Page 26: ......
Page 110: ......
Page 130: ......
Page 150: ......
Page 164: ...D Figure D 1 Test Setup for the Wavelength Tests D 4 Performance Tests ...
Page 177: ...D Figure D 5 Test Setup for the Source Spontaneous Emission Test Performance Tests D 17 ...
Page 240: ......