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
We want to nd the lowest maximum power
390 Wavel=Wavel+Stepw
400 UNTIL Wavel>Stopw+(Stepw/2)
We 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 PRINT "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
To Next Page
Loading...
