R&S ESPI
Messung der belegten Bandbreite
Im folgenden Beispiel soll die Bandbreite ermittelt werden, in der 95 % der Leistung eines GSM-Signals
gesendet werden. Das Signal liege bei 935,2 MHz; die Kanalbandbreite ist 200 kHz.
REM ************************************************************************
Public Sub OBW()
result$ = Space$(100)
'--------- Grundeinstellung R&S ESPI ---------------------------------------
CALL SetupStatusReg
CALL IBWRT(receiver %,"*RST")
CALL IBWRT(receiver %,"INIT:CONT OFF")
CALL IBWRT(receiver %,"SYST:DISP:UPD ON")
'--------- receiver für OBW bei GSM konfigurieren --------------------------
CALL IBWRT(receiver %,"FREQ:CENT 935.2MHz")
CALL IBWRT(receiver %,"CALC:MARK:FUNC:POW:SEL OBW") 'OBW-Messung einschalten
CALL IBWRT(receiver %,"SENS:POW:ACH:BAND 200KHZ")
CALL IBWRT(receiver %,"SENS:POW:BWID 95PCT")
CALL IBWRT(receiver %,"SENS:POW:ACH:PRES OBW") 'Frequenzeinstellung und
CALL IBWRT(receiver %,"SENS:POW:ACH:PRES:RLEV;*WAI")
CALL IBWRT(receiver %,"SENS:POW:NCOR OFF")
'--------- Messung durchführen und Ergebnis abfragen -----------------------
CALL IBWRT(receiver %,"INIT;*WAI")
CALL IBWRT(receiver %,"CALC:MARK:FUNC:POW:RES? OBW")
CALL IBRD(receiver %, result$)
Print result$
END SUB
REM ************************************************************************
1164.6459.11
Komplexere Programmbeispiele
'Statusregister konfigurieren
'Gerät zurücksetzen
'Single Sweep Betrieb
'ON: Bildschirmdarstellung ein
'OFF: aus
'Frequenzeinstellung
'Kanalbandbreite 200kHz
'Prozentsatz der gesuchten
'Leistung einstellen
'Korrektur des Eigenrauschens
'OFF: ausschalten
'ON:
'Sweep durchführen mit Sync
7.27
'Ref.Pegel optimieren
einschalten
'Ergebnis abfragen
D-2