% Power estimation on discrete signals
function [y,yf] = sm2(x,yi,arf)

N = length(x);
x(1) = x(1) + yi*(1/arf-1);
x = abs(x);
a = [1,-(1-arf)];
y = filter(arf,a,x);
yf = y(N);