Skrypt Octave, krok po kroku:

%[data,fs] = wavread("sample.wav");
data = [1:1:12]
len = length(data);
n=3;
y = [];
for i=1:len-3
mean = sum(data(i:i+n-1))./n
y = [y, mean]
t = [1:length(y)];
plot(t,data(1:i),"*b", t,y,"or")
pause
endfor

Znak % zamienia linię na komentarz

Jeśli chcesz rysować od razu całość np. tak:
http://img560.imageshack.us/img560/2783/kci.png

to tu masz kod:

%[data,fs] = wavread("sample.wav");
data = [1,2,3,4,4,4,8,7,2,3,4,3,3,3,1];
len = length(data);
n=3;
b = ones(n,1)./n;
y = filter(b,1,data);
t = [1:length(y)];
plot(t,data,"b*-", t,y,"ro-")
%stem(t,[data', y']);

Odkomentuj pierwszą linię i zakomentuj drugą aby pracować na danych z
wav. stem rysuje próbki, może bardziej przypadnie Ci do gustu, bo to w
końcu jest sygnał spróbkowany, nie ciągły. Usuwając "-" z funkcji plot
pozbędziesz się linii łączących. Oczywiście za długi ten sygnał nie może
być, bo wykres stanie się nieczytelny. Można wybrać z wektora jakiś
interesujący krótszy zakres. Częściowo pomoże narzędzie lupa. Na
wykresie możesz wprowadzać oznaczenia osi, danych, tytuł, siatkę, kolory.

kod wklejasz do pliku tekstowego np sundy.m i wywołujesz wpisując w
linii komend Octave: sundy.

--
Michał