HP 86140A Series

4-25
Remote Operation
Example Programs
ENTER 723;Startw
OUTPUT 723;”sens:wav:stop?” ! Read stop wavelength
ENTER 723;Stopw
OUTPUT 723;”sens:swe:poin?” ! Read trace length
ENTER 723;Tlength
Bucket=(Stopw-Startw)/(Tlength-1) ! Calculate bucket length
PRINT “Data Point Size”,Bucket;”nm”
!
PRINT “Point”,” Wavelength”,”Amplitude”
!
! The following lines calculate the wavelength value of each point
! of the trace. Note that wavelength values of a trace cannot
! be directly queried.
!
FOR I=1 TO 101
Wlength=Startw+(Bucket*(I-1)) ! Calculate point wavelength
Wlength=Wlength*1.E+9 ! Convert to nm
PRINT I,Wlength,Tdata(I)
NEXT I
!
LOCAL 723 ! Return to local operation
END
book.book Page 25 Monday, January 31, 2000 10:34 AM