env_phas.m

现上传电子工业出版社出版的国外电子与通信教材系列一书：现代通信系统（MATLAB版）（第二版）中的脚本文件与M文件

function [v,phi]=env_phas(x,ts,f0)
%		[v,phi]=env_phas(x,ts,f0)
%		      v=env_phas(x,ts,f0)
%ENV_PHAS   	Returns 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));