Advertisement
Guest User

Untitled

a guest
Jun 26th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.19 KB | None | 0 0
  1. clc;
  2. clear;
  3. close all;
  4.  
  5. A=1;
  6. f=5;
  7. fs=2000 ;
  8.  
  9. tmax=1000;
  10. t=0:1/fs:1;
  11. s1=sin(2*pi*f*t);
  12.  
  13. kvant1=quantize(s1,2);
  14. figure(1);
  15. subplot(211);
  16. plot(t,s1);
  17. subplot(212);
  18. plot(t,kvant1);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement