%
function yhat = Exponential_Filter( y, alpha )
%
yhat = y(1);
for i = 2:length(y),
  yhat(i) = alpha * yhat(i-1) + ( 1 - alpha ) * y(i);
end;
%
