Table of Contents
Advertisement
4-40 Example Programs
Example 6. Increase a source's wavelength accuracy
This example program uses the Agilent 86121A to
increase the absolute wavelength accuracy of the Agi-
lent 8167B and the 8168D,E,F Tunable Laser Sources.
Essentially, the accuracy of the Agilent 86121A is trans-
ferred to the tunable laser source. The absolute accu-
racy of the tunable laser source is increased from
<±0.1 nm to <±0.003 nm which is the absolute accuracy
(at 1550 nm) of the Agilent 86121A.
In order to run this program, the firmware of the tun-
able laser source must support the automatic alignment
command, WAVEACT.
The program uses the following measurement algo-
rithm:
Identify and initialize the Agilent 86121A and tunable
laser source
Ask user for desired wavelength
Set wavelength of tunable laser source
Turn tunable laser source's output on
Enter loop
Measure wavelength
Compare wavelength to desired wavelength
Realign tunable laser source's wavelength
Check if wavelength changed from last pass
Repeat until (delta wavelength < 0.0015 nm or wave-
length is stable)
COM Current_wl,Diff_wl.Target_wl,Previous_diff,Diff_diff
Current_wl=0
Diff_wl=0
Target_wl=0
Previous_diff=O
Diff_diff=0
ASSIGN @Tls TO 724
ASSIGN @Mwm TO 720
! Initialize instrument
DIM Identity$[50]
Identity$=""
OUTPUT @Tls;"*CLS"
OUTPUT @Tls;"*IDN?"
ENTER @TLS;identity$
PRINT "TLS IS A ";identity$
OUTPUT @Mwm;"*RST"
OUTPUT @Mwm;"*CLS"
OUTPUT @Mwm;"*IDN?"
Advertisement
Table of Contents
