Program_2_4.m
Upload User: ay_070428
Upload Date: 2014-12-04
Package Size: 11427k
Code Size: 1k
Development Platform:

Matlab

  1. % Program_2_4
  2. % Signal Smoothing by Moving Average Filter
  3. %
  4. clf;
  5. R = 51;
  6. d = rand(R,1)-0.5;
  7. for m = 1:1:R;
  8. s(m) = 2*(m-1)*((0.9)^(m-1));
  9. x(m) = s(m) + d(m);
  10. end
  11. M = input('Length of moving average filter = ');
  12. k = 0:R-1;
  13. subplot(2,1,1)
  14. plot(k,d,'g-',k,s,'b--',k,x,'r-');
  15. axis([0 50 -2 8]);
  16. xlabel('Time index n'); ylabel('Amplitude');
  17. legend('d[n]','s[n]','x[n]');
  18. subplot(2,1,2)
  19. b = ones(M,1)/M;
  20. a = 1;
  21. y = filter(b,a,x);
  22. plot(k,s,'b--',k,y,'r-');
  23. axis([0 50 -2 8]);
  24. xlabel('Time index n'); ylabel('Amplitude');
  25. legend('s[n]','y[n]');