Operating instructions

More Complex Programming Examples R&S ESCI
1166.6004.12 7.16 E-1
'--------- Peak search with search limit in y direction --------------------
CALL IBWRT(analyzer%,"CALC:THR:STAT ON")
CALL IBWRT(receiver%,"CALC:THR –35DBM") 'Threshold on and set above LF
CALL IBWRT(receiver%,"CALC:DELT3:STAT ON;MAX;MAX:NEXT")
'Delta marker 3 on
'Peak and then Next Peak
' => is not found
CALL IBWRT(receiver%,"CALC:DELT3:X:REL?;:CALC:DELT3:Y?")
CALL IBRD(receiver%, result$) 'Delta marker 3; read out
'frequency and level, both must
'have the value 0
Print "Delta 3: ";result$
'---- Set center frequency and reference level by means of markers ---------
CALL IBWRT(receiver%,"CALC:MARK2:FUNC:CENT") 'Delta marker 2 -> Marker and
'center frequency = Marker 2
CALL IBWRT(receiver%,"CALC:MARK2:FUNC:REF") 'Ref level = Marker 2
Call ibwrt(receiver%,"INIT;*WAI") 'Perform sweep with sync
END SUB
REM
************************************************************************