Advertisement
Guest User

Untitled

a guest
May 18th, 2017
157
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.08 KB | None | 0 0
  1. T = 1;
  2. M3 = 1.25;
  3. m3=1.2;
  4. sm3=7/6;
  5. p4=4/3;
  6. p5=1.5;
  7.  
  8. A = [[1 1.25 1.5 2];
  9. [1 1.25 1.5 2*sm3];
  10. [1 1.25 1.5 2*2^(5/12)];
  11. [1 1.25 1.5 2*2^(6/12)];
  12. [1 1.25 1.5 2*2^(7/12)];
  13. [1 1.25 1.5 2*2^(10/12)];
  14. [1 1.25 1.5 2*2^(7/12)];
  15. [1 1.25 1.5 2*2^(6/12)];
  16. [1 1.2 1.5 2] * sm3;
  17. [1 1.2 1.5 2*m3] * sm3;
  18. [1 1.2 1.5 2*2^(5/12)] * sm3;
  19. [1 1.2 1.5 2*2^(6/12)] * sm3;
  20. [1 1.2 1.5 2*2^(7/12)] * sm3;
  21. [1 1.2 1.5 2*2^(10/12)] * sm3;
  22. [1 1.2 1.5 2*11/6 ] * sm3;
  23. [1 1.2 1.5 2*2^(12/12)] * sm3;
  24. ];
  25.  
  26. B = [[1 1.25 1.5 2*2^(12/12)];
  27. [1 1.25 1.5 2*11/6];
  28. [1 1.25 1.5 2*2^(7/12)];
  29. [1 1.25 1.5 2*2^(6/12)];
  30. [1 1.25 1.5 2*2^(5/12)];
  31. [1 1.25 1.5 2*sm3];
  32. [1 1.25 1.5 2*2^(7/12)];
  33. [1 1.25 1.5 2*2^(6/12)];
  34. [1 1.2 1.5 2] * sm3;
  35. [1 1.2 1.5 2*m3] * sm3;
  36. [1 1.2 1.5 2*2^(5/12)] * sm3;
  37. [1 1.2 1.5 2] * sm3;
  38. [1 1.2 1.5 2*m3] * sm3;
  39. [1 1.2 1.5 2*2^(5/12)] * sm3;
  40. [1 1.2 1.5 2*2^(10/12) ] * sm3;
  41. [1 1.2 1.5 2*2^(7/12)] * sm3];
  42.  
  43. sound(make_freqs([A; A; B; A;] *440)/3,44100);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement