This example program creates a Phase Noise measurement setup.
This VBScript program can be run as a macro in the VNA. To do this, copy the code into a text editor file such as Notepad and save on the VNA hard drive as PN_Setup.vbs. Learn how to setup and run the macro.
See Other SCPI Example Programs
' ' Phase Noise - basic measurement ' Dim app Dim scpi ' Create / Get the VNA application. Set app = CreateObject("AgilentPNA835x.Application") Set scpi = app.ScpiStringParser scpi.parse "SYST:PRES" ' Create a Phase Noise channel scpi.parse "CALC:PAR:DEL:ALL" scpi.parse "CALC:MEAS1:DEF 'PN:Phase Noise'" scpi.parse "DISP:MEAS1:FEED 1" ' Set Carrier frequency to 3 GHz scpi.parse "SENS:PN:SWEep:CARRier:FREQuency 3.0e9" ' Set Start/Stop Offset to 1 kHz and 10 MHz scpi.parse "SENS:FREQuency:STARt 1e3" scpi.parse "SENS:FREQuency:STOP 10e6" ' Set RBW Ratio to 5 % scpi.parse "SENS:PN:BWIDth:RESolution:RATio 5" ' Set FFT Avg Factor to 2 scpi.parse "SENSe:PN:FAVerage:FACTor 2" ' Select Noise Mode to Normal scpi.parse "SENS:PN:SWEep:NOISe:MODE NORMal" ' Select VNA Input to use for the measurement scpi.parse "SENS:PN:RECeiver 'b2'" |