evenodd.m

来自「原名：数字信号处理基础及MATLAB实现,解压缩密码：lfjk2002@163.」· M 代码 · 共 13 行

function [xe,xo,m]=evenodd(x,n)
%将实信号分解为奇偶两部分
%检查序列是否为实序列
if any(imag(x)~=0)
    error('x不是实序列')
end
m=-fliplr(n);   %fliplr:Flip matrix in left/right direction.
m1=min([m,n]);m2=max([m,n]);m=m1:m2;
nm=n(1)-m(1);n1=1:length(n);
x1=zeros(1,length(m));
x1(n1+nm)=x;x=x1;
xe=0.5*(x+fliplr(x));
xo=0.5*(x-fliplr(x));