function maud=energyEQ (aud,step)
minen=aud(1,:);
% step=0.04;

% lowfilt=fir1(20,.1);
% for cnt1=1:size(aud,2)
%     lowaud(:,cnt1)=filtfilt(lowfilt,1,aud(:,cnt1));
% end   
for cnt1=1:size(aud,1)
    minen=min(aud(cnt1,:),minen+step);
%     minen=min(aud(max(1,cnt1-step):min(size(aud,1),cnt1+step),:));
    maud(cnt1,:)=max(0,aud(cnt1,:)-1.1*minen);
end
% maud=max(0,maud);
t=0;