6
Example 5 - Increased Tuning Linearity
The program also exits the loop after ten tries, regardless of the wavelength
dierence. If the TLS does not reach the desired tolerance within ten tries,
there is a problem in the system. It is most likely that the tolerance has been
set at a smaller value than that of the stability (noise) of the wavelength meter.
This must be avoided, since the tunable laser will be chasing a moving number
,
which will waste time without improving performance
.
Any wavelength meter of sucient accuracy
, linearity, and stability can be
used.
Basic Listing
1 ! This program first sets the targeted wavelength
2 ! It then enters in a loop until the Targeted wavelength
3 ! is close enough to the targeted one.
4 ! This program uses the HP 86120A multi-wavelength meter
10 COM Elevat,Start_wl,Stop_wl,Step_wl,Allow_diff,Numb_tries
20 COM Target_wl,Current_wl,Diff_wl,Loop_count
30 !
40 !
50 Start_wl=1550
60 Stop_wl=1555
70 Step_wl=.001
80 Allow_diff=.001
90 Numb_tries=10
100 !
110 Target_wl=0
120 Current_wl=0
130 Diff_wl=0
140 !
150 ASSIGN @Tls TO 724
160 ASSIGN @Mwm TO 720
170 !
180 OUTPUT @Tls;"*CLS"
190 OUTPUT @Tls;"*RST"
200 !
210 OUTPUT @Mwm;"*CLS"
220 OUTPUT @Mwm;"*RST"
230 OUTPUT @Mwm;"SENSE:CORR:ELEV 2000"
240 !
250 OUTPUT @Tls;"OUTP ON"
260 !
270 !
280 FOR I=Start_wl TO Stop_wl STEP Step_wl
290 !
300 PRINT ""
6-14 Programming Examples
To Next Page
Loading...
