function Xout = smooth(Xin,k,s)
Xout = zeros(size(Xin,1),1);
for z = -s:s
Xout = Xout + Xin(:,k+z)*nchoosek(2*s,s+z);
end
Xout = Xout/2^(2*s);
--------------------------------------------------------------------------------------------------------------------------------------------
function smooth(Xin,k,s)
Xout = zeros(size(Xin,1),1)
for z = -s:s
Xout = Xout + Xin[:,k+z]*binomial(2*s,s+z)
end
Xout = Xout/2^(2*s)
return Xout
end