circonv.m

来自「一个实现循环卷积、因式分解的参考程序」· M 代码 · 共 12 行

function y = circonv(x1, x2)
L1 = length(x1);
L2 = length(x2);
if L1 ~= L2, error('Sequences of unequal length'), end
y = zeros(1,L1);
x2tr = [x2(1) x2(L2:-1:2)];
for k = 1:L1,
    sh = circshift(x2tr', k-1)';
    h = x1.*sh;
    disp(sh);
    y(k) = sum(h);
end