Rohde & Schwarz R&S FSP Series, Operating Manual

Page: 742 / 796

R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
7.8 Operating Manual 1164.4556.12 - 06
status = viWrite(analyzer, "CALC:MARK:X:SLIM:LEFT 99.6MHz;RIGHt 100.4MHz", 44,
retCnt)
'Activate search limit and set to ±400 kHz about center
frequency
status = viWrite(analyzer, "CALC:THR:STAT ON", 16, retCnt)
status = viWrite(analyzer, "CALC:THR -60DBM", 15, retCnt)
'Activate threshold and set to –60 dBm
'--------- Activate search for spurious ---------------------
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:SORT X", 25, retCnt)
'Sort according to frequency
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE 10", 21, retCnt)
'Search for 10 highest peaks
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:COUN?", 24, retCnt)
'Call number of peaks, check it,
status = viRead(analyzer, countstr$, 30, retCnt)
'and read it in
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:X?", 21, retCnt)
'Query and read
status = viRead(analyzer, freqlist$, 1000, retCnt)
'frequency list
status = viWrite(analyzer, "CALC:MARK:FUNC:FPE:Y?", 21, retCnt)
'Query and read
status = viRead(analyzer, powerlist$, 1000, retCnt)
'level list
Print "# of spurious: ";countstr$
'Output number of results
Print "Frequencies: ";freqlist$
'Output frequency list
Print "Power: ";powerlist$
'Output level list
END SUB
REM ************************************************************************
7.3.1.2 Shape Factor Measurement (Using n dB Down)
The n-dB-down function of the R&S FSP is used twice to determine the shape factor
of a filter (ratio of bandwidths at 60 dB and 3 dB below the filter maximum).
The following example is again based on a signal with a level of –30 dBm at 100
MHz. The shape factor is determined for the 30 kHz resolution bandwidth. The
default setting of the R&S FSP is used for measurements (SetupInstrument).
REM ************************************************************************
Public Sub ShapeFactor()
result$ = Space$(100)
'--------- R&S FSP default setting --------------------------
CALL SetupInstrument
'Default setting
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)