view general/numerical/smooth_with.m @ 6:0ce3c2070089

Removed duplicate code and fixed doc in timed_action.

function Z=smooth_with(h,i,Y)
% smooth_with - Smooth a signal by convolution without changing length
%
% smooth_with :: [[M]], 1..M, [[N]] -> [[N]].

m=length(h);
h=stoch(h(:))';
csh=cumsum(h);
rsh=fliplr(cumsum(fliplr(h)));

if isvector(Y), Z=sm(Y);
else Z=maprows(@sm,Y); 
end

function z=sm(y)
	z=conv(h,y); % complete convolution
	z=z(i:end-(m-i)); % trim the ends

	% rescale end bits
	z(1:m-i)=z(1:m-i)./csh(i:end-1);
	z(end-i+2:end)=z(end-i+2:end)./rsh(2:i);
end

end