Я должен реализовать средний фильтр на наборе данных, но у меня нет доступа к панели инструментов обработки сигналов. Существует ли способ сделать это, не используя для цикла? Вот код, у меня есть работа:
x=0:.1:10*pi;
noise=0.5*(rand(1,length(x))-0.5);
y=sin(x)+noise; %generate noisy signal
a=10; %specify moving window size
my=zeros(1,length(y)-a);
for n=a/2+1:length(y)-a/2
my(n-a/2)=mean(y(n-a/2:n+a/2)); %calculate mean for each window
end
mx=x(a/2+1:end-a/2); %truncate x array to match
plot(x,y)
hold on
plot(mx,my,'r')
Править:
После реализации решения Мерва встроенный метод фильтра изолирует исходный сигнал. Существует ли путь вокруг этого?
Используйте встроенную функцию FILTER
%# generate noisy signal
x = sin(0:.1:10*pi);
x = x + 0.5*(rand(1,length(x))-0.5);
%# moving average smoothing
window = 15;
h = ones(window,1)/window;
y = filter(h, 1, x);
%# plot
subplot(211), plot(x), ylim([-1 1]), title('noisy')
subplot(212), plot(y), ylim([-1 1]), title('filtered')
Чтобы решить проблему задержки, попробуйте что-то вроде этого:
s = ceil(window/2);
yy = y(s:end);
n = length(x);
plot(1:n, x, 'b'), hold on, plot(1:n-s+1, yy,'r'), hold off
legend({'noisy' 'filtered'})