Agilent Technologies 86121A, User Manual, Page: 103 / 240

4
-
36 Example Programs
Example 4. Measure WDM channel separation
This program measures the line separations on a WDM
system. It measures separation (delta) between power
and wavelength of each line using commands from the
CALCulate3 subsystem.
Refer to the introduction to this section for a descrip-
tion of each subroutine that is contained in this pro-
gram.
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 : ";(Delta_wl(I)+((NOT I=1)*Delta_wl(1)))/1.0E-9;" nm.
Absolute line level is : ";Delta_pwr(I)+(NOT I=1)*Delta_pwr(1);" dBm"
PRINT USING "17A,2D,6A,M4D.3D,23A,2D,6A,S2D.2D,3A";"Delta Wl
to line ",I+1," is : ";(Delta_wl(I+1)-(NOT I=1)*Delta_wl(I))/1.E-9;" nm,