3-37
Programming
Example Programs
Example 4. Measure WDM channel separation
This p rogram measures the line sep arations on a WDM system. It mea-
sures separation (delta) between power and wavelength of each line
using commands from the CALCulate3 subsystem.
Refer to the introduction to this section for a description of each sub-
routine that is contained in this program.
COM /Instrument/ @Mwm
ASSIGN @Mwm TO 720
DIM Key$[1]
ON ERROR GOTO Error_msg
Set_ese
PRINT USING "37A,33A";"Multi-Wavelength Meter Identity is : ";FNIdentity$
ON TIMEOUT 7,5 CALL Err_mngmt
Cmd_opc("*RST")
! Change to list-by-wavelength display
Cmd_opc(":CONF:ARR:POW:WAV")
! Trigger and wait for one measurement
Cmd_opc(":INIT")
Cmd_opc("*WAI")
! Turn on delta mode
Cmd_opc(":CALC3:DELT:WPOW:STAT ON")
! Set first wavelength as reference
Cmd_opc(":CALC3:DELT:REF:WAV MIN")
! Query number of data points
OUTPUT @Mwm;":CALC3:POIN?"
ENTER @Mwm USING "#,K";Nb_pt
ALLOCATE Delta_wl(1:Nb_pt)
ALLOCATE Delta_pwr(1:Nb_pt)
! Query wavelengths and powers
OUTPUT @Mwm;":CALC3:DATA? WAV"
ENTER @Mwm;Delta_wl(*)
OUTPUT @Mwm;":CALC3:DATA? POW"
ENTER @Mwm;Delta_pwr(*)
OFF TIMEOUT
FOR I=1 TO Nb_pt-1
PRINT USING "6A,2D,17A,M4D.3D,31A,S2D.2D,4A";"Line :";I;" wavelength is :
Summary of Contents for 86120C
Page 12: ......
Page 26: ...1 14 Getting Started Returning the Instrument for Service ...
Page 27: ...1 15 Getting Started Returning the Instrument for Service ...
Page 28: ......
Page 96: ...3 18 Programming Monitoring the Instrument ...
Page 128: ...3 50 Programming Lists of Commands ...
Page 236: ...4 108 Programming Commands UNIT Subsystem ...
Page 248: ......
Page 264: ...6 16 Specifications and Regulatory Information Product Overview ...
Page 269: ...7 5 Reference Menu Maps Appl s Menu ...
Page 271: ...7 7 Reference Menu Maps Display List by WL Menu Delta On Menu ...
Page 273: ...7 9 Reference Menu Maps System Print Menu ...
Page 274: ...7 10 Reference Menu Maps System Setup Menu ...
Page 284: ......
Page 292: ......
Page 293: ......