Экспоненциальное сглаживание в Scilab

function res = sgl(x,alpha)
alpha1 = 1-alpha ;
res = x(:,ones(1,length(alpha))) ;
for k=2:size(x,1)
res(k,:) = res(k,:) .* alpha + res(k-1,:) .* alpha1 ;
end
endfunction