Advertisement
Guest User

Untitled

a guest
Dec 19th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 0.66 KB | None | 0 0
  1. n = [0:127];
  2. x = (3*sin((n*pi)/8)+3).*(heaviside(n) - heaviside(n - 63));
  3. z = (7*cos((n*pi)/16).*cos(n*pi)).*(heaviside(n) - heaviside(n - 63));
  4. w = z + x;
  5. h = 0.5*sinc(0.5*(n-31)).*(heaviside(n) - heaviside(n - 63));
  6. y = conv(w, h);
  7. xk = fft(x);
  8. zk = fft(z);
  9. wk = fft(w);
  10. hk = fft(h);
  11. wk = wk;
  12. yk = wk.*hk;
  13. ynn = ifft(yk);
  14. p = (0:length(wk)-1)*128/length(wk);
  15. q = (0:length(zk)-1)*128/length(zk);
  16. r = (0:length(hk)-1)*128/length(hk);
  17. f = (0:length(xk)-1)*128/length(xk);
  18. s = (0:length(yk)-1)*128/length(yk);
  19. stem(n, x);
  20. stem(n, z);
  21. stem(n, w);
  22. stem(n, h);
  23. stem(n, y(1:128));
  24. stem(p, wk);
  25. stem(q, zk);
  26. stem(r, hk);
  27. stem(f, xk);
  28. stem(n, ifft(yk));
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement