Zrobiłem tak ;


data =
[2,6,3,8,4,6,15,20,40,20,25,98,17,34,5,23,5,3,35,44,
23,17,19,16,2,3,8,4,7,4];
len = length(data);

data1 = abs(data)
data3 = [];

a=3; % ilość próbek do wartości max

for i=1:a:length(data1)
data2 = max(data1(i:i+(a-1)));
data3 = [data3, data2];
endfor

% uśrednianie

n=2; % ilość próbek uśredniania
b = ones(n,1)./n;
y = filter(b,1,data3);


t = [1:length(data1)];
%plot(t,data1,"b*-")

t2 = [1:length(data3)];
plot(t,data1,"b*-", t2*a,y, "r*-")

____________________________________________

na razie na danych ręcznie wpisanych, żeby sprawdzić.
No i chyba - kuśwa działa ! :))
Jutro spróbuję na wav.