R&S ESR Series

Remote Control
R&S
®
ESR
1038User Manual 1175.7068.02 ─ 12
CALL InstrWrite(analyzer,"*RST") 'Reset instrument
CALL InstrWrite(analyzer,"INIT:CONT OFF") 'Single sweep
'--------- Setup the first Spectrum tab (Spectrum Overview Measurement) ----
CALL InstrWrite(analyzer,"INIT:CONT OFF") 'Single sweep
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:SCAL:RLEV 10 dBm")'Reference level
CALL InstrWrite(analyzer,"FREQ:STARt 100MHz;STOP 6 GHz") 'Span
'--------- Setup the Spectrum 2 Tab (ACLR measurement) ---------------------
CALL InstrWrite(analyzer,"INST:CRE SAN,'Spectrum 2'") 'Create Tab 2
'--- After creation the tab is in standard preset setup ---
CALL InstrWrite(analyzer,"INIT:CONT OFF") 'Single sweep
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:SCAL:RLEV 10 dBm")'Reference level
CALL InstrWrite(analyzer,"FREQ:CENT 2.1175GHz") 'different CF
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:POW:SEL ACP") 'select ACLR meas
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:POW:PRES FW3Gppcdma")
'select WCDMA BTS standard
'--------- Setup the Spectrum 3 Tab (OBW measurement) ----------------------
CALL InstrWrite(analyzer,"INST:CRE SAN,'Spectrum 3'") 'Create Tab 3
CALL InstrWrite(analyzer,"INIT:CONT OFF") 'Single sweep
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:SCAL:RLEV 10 dBm")'Reference level
CALL InstrWrite(analyzer,"FREQ:CENT 2.1175GHz") 'different CF
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:POW:SEL OBW") 'select OBW meas
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:POW:PRES FW3Gppcdma")
' select WCDMA BTS standard
'--------- Setup the Spectrum 4 Tab (CCDF measurement) ----------------------
CALL InstrWrite(analyzer,"INST:CRE SAN,'Spectrum 4'") 'Create Tab 4
CALL InstrWrite(analyzer,"INIT:CONT OFF") 'Single sweep
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:SCAL:RLEV 10 dBm")'Reference level
CALL InstrWrite(analyzer,"FREQ:CENT 2.1175GHz") 'different CF
CALL InstrWrite(analyzer," CALC:STAT:CCDF ON") 'select CCDF meas
'--------- Sweep in first Spectrum Tab and query marker --------------------
CALL InstrWrite(analyzer,"INST:SEL SAN") 'Select Tab 1
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:MARK1:MAX") 'Marker to peak
CALL InstrWrite(analyzer,"CALC:MARK1:X?") 'Query Marker x value
CALL InstrRead(analyzer,result$)
Print "Spectrum 1 Marker x [Hz]: ";result$
CALL InstrWrite(analyzer,"CALC:MARK1:Y?") 'Query Marker y value
CALL InstrRead(analyzer,result$)
Print "Spectrum 1 Marker y [dBm]: ";result$
'--------- Sweep in Spectrum 2 Tab and query ACLR results ------------------
CALL InstrWrite(analyzer," INST:SEL 'Spectrum 2'") 'Select Tab 2
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:POW:RES? ACP")'Query ACLR results
CALL InstrRead(analyzer,result$)
Print "Spectrum 2 ACRL results : ";result$
'--------- Sweep in Spectrum 3 Tab and query OBW results ------------------
CALL InstrWrite(analyzer," INST:SEL 'Spectrum 3'") 'Select Tab 3
Remote Control – Programming Examples