Advertisement
Guest User

Untitled

a guest
Jun 24th, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.94 KB | None | 0 0
  1. Fs = 44100;
  2. T=44000;
  3. FD=261.6;
  4. Pit = [16.35,17.47,18.29,19.54,20.46,21.86,22.88,23.36,24.45,26.13,27.35,29.23,30.60;...
  5. 32.70,34.95,36.58,39.09,40.91,43.72,45.77,46.73,48.91,52.27,54.71,58.47,61.20;...
  6. 65.40,69.89,73.16,78.18,81.83,87.45,91.53,93.46,97.82,104.5,109.4,116.9,122.4;...
  7. 130.8,139.8,146.3,156.4,163.7,174.9,183.1,186.9,195.6,209.1,218.8,233.9,244.8;...
  8. 261.6,279.6,292.6,312.7,327.3,349.8,366.1,373.8,391.3,418.2,437.7,467.7,489.6;...
  9. 523.2,559.1,585.2,625.4,654.6,699.6,732.3,747.6,782.6,836.3,875.4,935.5,979.1;...
  10. 1046,1118,1170,1251,1309,1399,1465,1495,1565,1673,1751,1871,1958;...
  11. 2093,2237,2341,2502,2619,2798,2929,2991,3130,3345,3501,3742,3917;...
  12. 4186,4473,4682,5003,5237,5597,5858,5981,6260,6690,7003,7484,7833;...
  13. 8371,8946,9364,10007,10474,11194,11716,11962,12521,13381,14006,14968,15666];
  14.  
  15. c4Pit4 = dzwiek(Pit(4,1),T/4,Fs);
  16. db4Pit4 = dzwiek(Pit(4,2),T/4,Fs);
  17. d4Pit4 = dzwiek(Pit(4,3),T/4,Fs);
  18. eb4Pit4 = dzwiek(Pit(4,4),T/4,Fs);
  19. e4Pit4 = dzwiek(Pit(4,5),T/4,Fs);
  20. f4Pit4 = dzwiek(Pit(4,6),T/4,Fs);
  21. fb4Pit4 = dzwiek(Pit(4,7),T/4,Fs);
  22. gb4Pit4 = dzwiek(Pit(4,8),T/4,Fs);
  23. g4Pit4 = dzwiek(Pit(4,9),T/4,Fs);
  24. ab4Pit4 = dzwiek(Pit(4,10),T/4,Fs);
  25. a4Pit4 = dzwiek(Pit(4,11),T/4,Fs);
  26. b4Pit4 = dzwiek(Pit(4,12),T/4,Fs);
  27. h4Pit4 = dzwiek(Pit(4,13),T/4,Fs);
  28.  
  29. c3Pit4 = dzwiek(Pit(3,1),T/4,Fs);
  30. db3Pit4 = dzwiek(Pit(3,2),T/4,Fs);
  31. d3Pit4 = dzwiek(Pit(3,3),T/4,Fs);
  32. eb3Pit4 = dzwiek(Pit(3,4),T/4,Fs);
  33. e3Pit4 = dzwiek(Pit(3,5),T/4,Fs);
  34. f3Pit4 = dzwiek(Pit(3,6),T/4,Fs);
  35. fb3Pit4 = dzwiek(Pit(3,7),T/4,Fs);
  36. gb3Pit4 = dzwiek(Pit(3,8),T/4,Fs);
  37. g3Pit4 = dzwiek(Pit(3,9),T/4,Fs);
  38. ab3Pit4 = dzwiek(Pit(3,10),T/4,Fs);
  39. a3Pit4 = dzwiek(Pit(3,11),T/4,Fs);
  40. b3Pit4 = dzwiek(Pit(3,12),T/4,Fs);
  41. h3Pit4 = dzwiek(Pit(3,13),T/4,Fs);
  42.  
  43. c4Pit8 = dzwiek(Pit(4,1),T/8,Fs);
  44. db4Pit8 = dzwiek(Pit(4,2),T/8,Fs);
  45. d4Pit8 = dzwiek(Pit(4,3),T/8,Fs);
  46. eb4Pit8 = dzwiek(Pit(4,4),T/8,Fs);
  47. e4Pit8 = dzwiek(Pit(4,5),T/8,Fs);
  48. f4Pit8 = dzwiek(Pit(4,6),T/8,Fs);
  49. fb4Pit8 = dzwiek(Pit(4,7),T/8,Fs);
  50. gb4Pit8 = dzwiek(Pit(4,8),T/8,Fs);
  51. g4Pit8 = dzwiek(Pit(4,9),T/8,Fs);
  52. ab4Pit8 = dzwiek(Pit(4,10),T/8,Fs);
  53. a4Pit8 = dzwiek(Pit(4,11),T/8,Fs);
  54. b4Pit8 = dzwiek(Pit(4,12),T/8,Fs);
  55. h4Pit8 = dzwiek(Pit(4,13),T/8,Fs);
  56.  
  57. c3Pit8 = dzwiek(Pit(3,1),T/8,Fs);
  58. db3Pit8 = dzwiek(Pit(3,2),T/8,Fs);
  59. d3Pit8 = dzwiek(Pit(3,3),T/8,Fs);
  60. eb3Pit8 = dzwiek(Pit(3,4),T/8,Fs);
  61. e3Pit8 = dzwiek(Pit(3,5),T/8,Fs);
  62. f3Pit8 = dzwiek(Pit(3,6),T/8,Fs);
  63. fb3Pit8 = dzwiek(Pit(3,7),T/8,Fs);
  64. gb3Pit8 = dzwiek(Pit(3,8),T/8,Fs);
  65. g3Pit8 = dzwiek(Pit(3,9),T/8,Fs);
  66. ab3Pit8 = dzwiek(Pit(3,10),T/8,Fs);
  67. a3Pit8 = dzwiek(Pit(3,11),T/8,Fs);
  68. b3Pit8 = dzwiek(Pit(3,12),T/8,Fs);
  69. h3Pit8 = dzwiek(Pit(3,13),T/8,Fs);
  70.  
  71. p = dzwiek( 0,T,Fs);
  72. p2 = dzwiek( 0,T/2,Fs);
  73. p4 = dzwiek( 0,T/4,Fs);
  74. p8 = dzwiek( 0,T/8,Fs);
  75. x=[ p4 p8 c4Pit4 e4Pit4 e4Pit4 c4Pit4 c4Pit4 a3Pit4 p4 ...
  76. p8 e4Pit4 d4Pit4 e4Pit4 f4Pit4 e4Pit4 d4Pit4 c4Pit4 e4Pit4 e4Pit4 c4Pit4 c4Pit4 a3Pit4 p4 ...
  77. p8 e4Pit4 d4Pit4 e4Pit4 f4Pit4 e4Pit4 d4Pit4 c4Pit4 e4Pit4 e4Pit4 c4Pit4 c4Pit4 a3Pit4 p4...
  78. p8 e4Pit4 d4Pit4 e4Pit4 f4Pit4 e4Pit4 d4Pit4 c4Pit4 e4Pit4 c4Pit4 p8 e4Pit4 d4Pit4 e4Pit4 d4Pit4 c3Pit4 ...
  79. ...
  80. e4Pit4 b3Pit4 p8 c4Pit4 b3Pit4 c4Pit4 b3Pit4 c4Pit8 e4Pit8 a4Pit8 a4Pit8 a4Pit4 e4Pit4 e4Pit4 e4Pit4 f4Pit4 f4Pit4 e4Pit4 d4Pit4 e4Pit4 ...
  81. p2 p4 p8 e4Pit4 a4Pit4 a4Pit4 a4Pit4 e4Pit4 e4Pit4 e4Pit4 f4Pit4 e4Pit4 d4Pit4 e4Pit4 ...
  82. p2 p4 p8 e4Pit4 a4Pit4 a4Pit4 a4Pit4 a4Pit4 h4Pit4 c4Pit4 h4Pit4 a4Pit4 h4Pit4 ...
  83. p2 p4 p8 e4Pit4 d4Pit4 e4Pit4 a4Pit8 a4Pit8 a4Pit4 g4Pit4 a4Pit4 g4Pit4 a4Pit4 e4Pit4 d4Pit8 e4Pit8 c4Pit4 ...
  84. p4 p8 e4Pit4 d4Pit4 e4Pit4 a3Pit8 a3Pit8 a3Pit4 g4Pit4 a4Pit4 g4Pit4 a4Pit4 e4Pit4 d4Pit8 e4Pit8 c4Pit4 ...
  85. ...
  86. d4Pit4 b4Pit4 p8 g4Pit4 g4Pit4 g4Pit4 g4Pit4 g4Pit4 a4Pit4 e4Pit4 p8 e4Pit4 d4Pit4 e4Pit4 d4Pit4 c4Pit4 ...
  87. e4Pit4 b3Pit4 p4 a4Pit4 a4Pit4 a4Pit8 a4Pit8 a4Pit4 g4Pit4 a4Pit4 g4Pit4 a4Pit4 e4Pit4 d4Pit8 e4Pit8 c4Pit4];
  88. sound(x/max(abs(x)),Fs);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement