Table of Contents
Advertisement
ENTER @Mwm;Identity$
PRINT "MWM IS A ";identity$
! Ask user for desired wavelength
INPUT "What wavelength (nm)do you wish to have",Target_wl
Target_wl=Target_wl*1.OE-9
PRINT "the target wavelength is : ";Target_wl
! Set wavelength of tunable laser source
OUTPUT @Tls; ":WAVE ";VAL$(Target_wl)
OUTPUT @Tls; ":OUTP ON"
! Enter realignment loop
REPEAT
OUTPUT @Mwm;":MEAS:SCAL:POW:WAV?"
ENTER @Mwm;Current_wl
PRINT "The current wavelength is : ";VAL$(Current_wl)
Diff_wl=PROUND(ABS(Target_wl-Current_wl),-16)
PRINT "Diff between target & Current is (+ or -) : ";VAL$(Diff_wl)
OUTPUT @Tls;":WAVEACT ";VAL$(Current_wl)
Diff_diff=PROUND(ABS(Diff_wl-Previous_diff),-16)
PRINT "differential difference between two turn : ";VAL$(Diff_diff)
Previous_diff=Diff_wl
UNTIL (Diff_wl<1.5*1.0E-12) OR (Diff_diff=0)
END
Example Programs 4-41
Advertisement
Table of Contents
