Measuring The Channel And Adjacent Channel Power - R&S ESU Series Operating Manual

R&S ESU
7.3.3

Measuring the Channel and Adjacent Channel Power

In the following example, the channel and adjacent channel power is first measured
on a signal with a level of 0 dBm at 800 MHz to IS95. Then the channel and adjacent
channel power is measured on a GSM signal at 935.2 MHz with fast ACP measure-
ment (FAST ACP).
In addition, the limit test is activated.
REM ************************************************************************
Public Sub ACP()
result$ = Space$(100)
'--------- R&S ESU default setting ---------------------------------------
CALL SetupStatusReg
'Set status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt)
'Change into analyzer mode
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'ON: display on
'OFF: off
'--------- Set frequency --------------------------------------------------
status = viWrite(analyzer, "FREQ:CENT 800MHz", 16, retCnt)
'--------- Set level ------------------------------------------------------
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV 10dBm", 27, retCnt)
'Reference level
'--------- Example 1: Configure CP/ACP for CDMA
status = viWrite(analyzer, "CALC2:MARK:FUNC:POW:SEL ACP", 27, retCnt)
'ACP measurement on
status = viWrite(analyzer, "CALC:MARK:FUNC:POW:PRES F8CDMA", 30, retCnt)
'Select CDMA800 FWD
status = viWrite(analyzer, "SENS:POW:ACH:ACP 2", 18, retCnt)
'Select 2 adjacent channels
status = viWrite(analyzer, "SENS:POW:ACH:PRES ACP", 21, retCnt)
'Optimize settings
status = viWrite(analyzer, "SENS:POW:ACH:PRES:RLEV;*WAI", 27, retCnt)
'Optimize reference level
status = viWrite(analyzer, "SENS:POW:ACH:MODE ABS", 21, retCnt)
'Absolute measurement
status = viWrite(analyzer, "SENS:POW:HSP ON", 15, retCnt)
'Fast ACP measurement
'--------- Perform measurement and query results --------------------------
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC2:MARK:FUNC:POW:RES? ACP", 28, retCnt)
'Query result
status = viRead(analyzer, result$, 100, retCnt)
Operating Manual 1302.6163.12 - 03
Remote Control – Programming Examples
More Complex Programming Examples
'Set frequency
--------------------------
7.15