env_phas.m

来自「是关于通信仿真的几个程序」· M 代码 · 共 12 行

function[v,phi]=env_phas(x,ts,f0)
%              [v,phi]=env_phas(x,ts,f0)
%                      v=env_phas(x,ts,f0)
%ENV_PHAS      Return the envelope and the phase of the bandpass signal x.
%              f0 is the center frequency.
%              ts is the sampling interval.
%
if nargout==2
    z=loweq(x,ts,f0);
    phi=angle(z);
end
v=abs(hilbert(x));