(New page: delta = .00005; % Beat bpm = 112; %beat per minute beat_interval = 60/bpm; % Notes quarter = 0:delta:beat_interval; eighth = 0:delta:(beat_interval/2); haft = 0:delta:(beat_interval*2...)
 
Line 1: Line 1:
 
 
delta = .00005;
 
delta = .00005;
  
% Beat
+
% Beat<br>bpm = 112; %beat per minute<br>beat_interval = 60/bpm;  
bpm = 112; %beat per minute
+
beat_interval = 60/bpm;  
+
  
% Notes
+
% Notes<br>quarter = 0:delta:beat_interval;<br>eighth = 0:delta:(beat_interval/2);<br>haft = 0:delta:(beat_interval*2);<br>dot_qrtr = 0:delta:(beat_interval*1.5);
quarter = 0:delta:beat_interval;
+
eighth = 0:delta:(beat_interval/2);
+
haft = 0:delta:(beat_interval*2);
+
dot_qrtr = 0:delta:(beat_interval*1.5);
+
  
%Frequencies of Notes
+
%Frequencies of Notes<br>G = (2^(-2/12))*440;<br>Bf = (2^(1/12))*440;<br>C = (2^(3/12))*440;<br>Df = (2^(4/12))*440;
G = (2^(-2/12))*440;
+
Bf = (2^(1/12))*440;
+
C = (2^(3/12))*440;
+
Df = (2^(4/12))*440;
+
  
%Note Sounds
+
%Note Sounds<br>quarter_G = sin(2*pi*G*quarter);<br>quarter_Bf = sin(2*pi*Bf*quarter);<br>dot_qrtr_C = sin(2*pi*C*dot_qrtr);<br>eighth_Df = sin(2*pi*Df*eighth);<br>haft_C = sin(2*pi*C*haft);<br>haft_G = sin(2*pi*G*haft);
quarter_G = sin(2*pi*G*quarter);
+
quarter_Bf = sin(2*pi*Bf*quarter);
+
dot_qrtr_C = sin(2*pi*C*dot_qrtr);
+
eighth_Df = sin(2*pi*Df*eighth);
+
haft_C = sin(2*pi*C*haft);
+
haft_G = sin(2*pi*G*haft);
+
  
%Note Array
+
%Note Array<br>note_array = [quarter_G, quarter_Bf, dot_qrtr_C, quarter_G, quarter_Bf, eighth_Df, haft_C, quarter_G, quarter_Bf, dot_qrtr_C, quarter_Bf, quarter_G];
note_array = [quarter_G, quarter_Bf, dot_qrtr_C, quarter_G, quarter_Bf, eighth_Df, haft_C, quarter_G, quarter_Bf, dot_qrtr_C, quarter_Bf, quarter_G];
+
  
%Song on Regular Speed
+
%Song on Regular Speed<br>sound(note_array, 1/delta);<br>wavwrite(note_array, 1/delta, '301_hw1_1A');
sound(note_array, 1/delta);
+
wavwrite(note_array, 1/delta, '301_hw1_1A');
+
  
%Prob 1b -- Double Speed = half the beat interval
+
%Prob 1b -- Double Speed = half the beat interval<br>beat_interval2 = (beat_interval / 2);
beat_interval2 = (beat_interval / 2);
+
  
% Notes 2x Speed
+
% Notes 2x Speed<br>quarter2 = 0:delta:beat_interval2;<br>eighth2 = 0:delta:(beat_interval2 / 2);<br>haft2 = 0:delta:(beat_interval2 * 2);<br>dot_qrtr2 = 0:delta:(beat_interval2 * 1.5);
quarter2 = 0:delta:beat_interval2;
+
eighth2 = 0:delta:(beat_interval2 / 2);
+
haft2 = 0:delta:(beat_interval2 * 2);
+
dot_qrtr2 = 0:delta:(beat_interval2 * 1.5);
+
  
%Note Sounds 2x Speed
+
%Note Sounds 2x Speed<br>quarter_G2 = sin(2*pi*G*quarter2);<br>quarter_Bf2 = sin(2*pi*Bf*quarter2);<br>dot_qrtr_C2 = sin(2*pi*C*dot_qrtr2);<br>eighth_Df2 = sin(2*pi*Df*eighth2);<br>haft_C2 = sin(2*pi*C*haft2);<br>haft_G2 = sin(2*pi*G*haft2);
quarter_G2 = sin(2*pi*G*quarter2);
+
quarter_Bf2 = sin(2*pi*Bf*quarter2);
+
dot_qrtr_C2 = sin(2*pi*C*dot_qrtr2);
+
eighth_Df2 = sin(2*pi*Df*eighth2);
+
haft_C2 = sin(2*pi*C*haft2);
+
haft_G2 = sin(2*pi*G*haft2);
+
  
%Note Array 2x Speed
+
%Note Array 2x Speed<br>note_array2 = [quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_G2 quarter_Bf2 eighth_Df2 haft_C2 quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_Bf2 quarter_G2];
note_array2 = [quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_G2 quarter_Bf2 eighth_Df2 haft_C2 quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_Bf2 quarter_G2];
+
  
%Song on 2x Speed
+
%Song on 2x Speed<br>sound(note_array2, 1/delta);<br>wavwrite(note_array2, 1/delta, '301_hw1_1B');
sound(note_array2, 1/delta);
+
wavwrite(note_array2, 1/delta, '301_hw1_1B');
+
  
 
%Prob 1c -- Twice the pitch
 
%Prob 1c -- Twice the pitch
  
%Note Sounds 2x Pitch
+
%Note Sounds 2x Pitch<br>quarter_G3 = sin(2*pi*G*quarter);<br>quarter_Bf3 = sin(2*pi*Bf*quarter);<br>dot_qrtr_C3 = sin(2*pi*C*dot_qrtr);<br>eighth_Df3 = sin(2*pi*Df*eighth);<br>haft_C3 = sin(2*pi*C*haft);<br>haft_G3 = sin(2*pi*G*haft);
quarter_G3 = sin(2*pi*G*quarter);
+
quarter_Bf3 = sin(2*pi*Bf*quarter);
+
dot_qrtr_C3 = sin(2*pi*C*dot_qrtr);
+
eighth_Df3 = sin(2*pi*Df*eighth);
+
haft_C3 = sin(2*pi*C*haft);
+
haft_G3 = sin(2*pi*G*haft);
+
  
%Note Array 2x Pitch
+
%Note Array 2x Pitch<br>note_array3 = [quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_G3 quarter_Bf3 eighth_Df3 haft_C3 quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_Bf3 quarter_G3];
note_array3 = [quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_G3 quarter_Bf3 eighth_Df3 haft_C3 quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_Bf3 quarter_G3];
+
  
%Song on 2x Pitch
+
%Song on 2x Pitch<br>sound(note_array3, 1/ delta);<br>wavwrite(note_array3, 1/delta, '301_hw1_1C');
sound(note_array3, 1/ delta);
+
wavwrite(note_array3, 1/delta, '301_hw1_1C');
+
  
%Problem 2
+
%Problem 2<br>%Read and play the original song<br>[y, Fs] = wavread('Beatles.wav');<br>sound(y, Fs);
%Read and play the original song
+
[y, Fs] = wavread('Beatles.wav');
+
sound(y, Fs);
+
  
%Flip the song and save this version
+
%Flip the song and save this version<br>flip = flipud(y);<br>sound(flip, Fs);<br>wavwrite(flip, Fs, 'Beatles_flip');
flip = flipud(y);
+
sound(flip, Fs);
+
wavwrite(flip, Fs, 'Beatles_flip');
+
  
% 1. Number 9 is repeated.
+
% 1. Number 9 is repeated.<br>% 2. It sounds mostly like gibberish but if I had to guess it ends in dead man.<br>
% 2. It sounds mostly like gibberish but if I had to guess it ends in dead man.
+

Revision as of 16:48, 18 January 2011

delta = .00005;

% Beat
bpm = 112; %beat per minute
beat_interval = 60/bpm;

% Notes
quarter = 0:delta:beat_interval;
eighth = 0:delta:(beat_interval/2);
haft = 0:delta:(beat_interval*2);
dot_qrtr = 0:delta:(beat_interval*1.5);

%Frequencies of Notes
G = (2^(-2/12))*440;
Bf = (2^(1/12))*440;
C = (2^(3/12))*440;
Df = (2^(4/12))*440;

%Note Sounds
quarter_G = sin(2*pi*G*quarter);
quarter_Bf = sin(2*pi*Bf*quarter);
dot_qrtr_C = sin(2*pi*C*dot_qrtr);
eighth_Df = sin(2*pi*Df*eighth);
haft_C = sin(2*pi*C*haft);
haft_G = sin(2*pi*G*haft);

%Note Array
note_array = [quarter_G, quarter_Bf, dot_qrtr_C, quarter_G, quarter_Bf, eighth_Df, haft_C, quarter_G, quarter_Bf, dot_qrtr_C, quarter_Bf, quarter_G];

%Song on Regular Speed
sound(note_array, 1/delta);
wavwrite(note_array, 1/delta, '301_hw1_1A');

%Prob 1b -- Double Speed = half the beat interval
beat_interval2 = (beat_interval / 2);

% Notes 2x Speed
quarter2 = 0:delta:beat_interval2;
eighth2 = 0:delta:(beat_interval2 / 2);
haft2 = 0:delta:(beat_interval2 * 2);
dot_qrtr2 = 0:delta:(beat_interval2 * 1.5);

%Note Sounds 2x Speed
quarter_G2 = sin(2*pi*G*quarter2);
quarter_Bf2 = sin(2*pi*Bf*quarter2);
dot_qrtr_C2 = sin(2*pi*C*dot_qrtr2);
eighth_Df2 = sin(2*pi*Df*eighth2);
haft_C2 = sin(2*pi*C*haft2);
haft_G2 = sin(2*pi*G*haft2);

%Note Array 2x Speed
note_array2 = [quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_G2 quarter_Bf2 eighth_Df2 haft_C2 quarter_G2 quarter_Bf2 dot_qrtr_C2 quarter_Bf2 quarter_G2];

%Song on 2x Speed
sound(note_array2, 1/delta);
wavwrite(note_array2, 1/delta, '301_hw1_1B');

%Prob 1c -- Twice the pitch

%Note Sounds 2x Pitch
quarter_G3 = sin(2*pi*G*quarter);
quarter_Bf3 = sin(2*pi*Bf*quarter);
dot_qrtr_C3 = sin(2*pi*C*dot_qrtr);
eighth_Df3 = sin(2*pi*Df*eighth);
haft_C3 = sin(2*pi*C*haft);
haft_G3 = sin(2*pi*G*haft);

%Note Array 2x Pitch
note_array3 = [quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_G3 quarter_Bf3 eighth_Df3 haft_C3 quarter_G3 quarter_Bf3 dot_qrtr_C3 quarter_Bf3 quarter_G3];

%Song on 2x Pitch
sound(note_array3, 1/ delta);
wavwrite(note_array3, 1/delta, '301_hw1_1C');

%Problem 2
%Read and play the original song
[y, Fs] = wavread('Beatles.wav');
sound(y, Fs);

%Flip the song and save this version
flip = flipud(y);
sound(flip, Fs);
wavwrite(flip, Fs, 'Beatles_flip');

% 1. Number 9 is repeated.
% 2. It sounds mostly like gibberish but if I had to guess it ends in dead man.

Alumni Liaison

Followed her dream after having raised her family.

Ruth Enoch, PhD Mathematics