(Replacing page with 'asdf') |
|||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | + | <pre> | |
| + | % Homework 1.1 Hail Purdue | ||
| + | %David Record | ||
| + | %September 3rd 2008 | ||
| + | |||
| + | %%Song Notes and Lyrics: | ||
| + | %%http://www.purdue.edu/bands/media/Sounds/aamb/Hail%20Purdue%20Piano%20Sheet.pdf | ||
| + | |||
| + | %Lyrics | ||
| + | %Hail, to Old Purdue, All hail to our gold and black! | ||
| + | |||
| + | %Notes: | ||
| + | %E, F, G, A_, B_, C5, D5_, B | ||
| + | |||
| + | %Corresponding Frequencies: http://www.phy.mtu.edu/~suits/notefreqs.html | ||
| + | E = 311.13; %HZ | ||
| + | F = 349.23; %HZ | ||
| + | G = 392.00; %HZ | ||
| + | A_ = 415.30; %HZ | ||
| + | B_ = 466.16; %HZ | ||
| + | C5 = 523.25; %HZ | ||
| + | D5_ = 554.37; %HZ | ||
| + | B = 493.3; %HZ | ||
| + | |||
| + | %Durations | ||
| + | delta = 0.00005; %As defined in class | ||
| + | quarter = .25; %Quarter Note | ||
| + | half = .5; %Half Note | ||
| + | whole = 1; %Whole Note | ||
| + | eigth = .125; %Eighth Note | ||
| + | |||
| + | notes = [E, F, G, A_, B_, C5, C5, D5_, D5_, D5_, A_, B_, B, C5]; | ||
| + | durations = [half, quarter, quarter, (quarter+eighth), eighth, quarter, quarter, quarter, eighth, eighth, quarter, eigth, eigth, (half+quarter) ]; | ||
| + | |||
| + | %%% Song Unaltered %%% | ||
| + | for counter = 1: length(notes) | ||
| + | t = 0:delta:durations(counter); | ||
| + | y = sin(2*pi*notes(counter)*t); | ||
| + | sound (y, 1/delta); | ||
| + | end | ||
| + | |||
| + | %%% Twice as Fast %%% | ||
| + | for counter = 1: length(notes) | ||
| + | t = 0:delta:durations(counter)/2; | ||
| + | y = sin(2*pi*notes(counter)*t); | ||
| + | sound (y, 1/delta); | ||
| + | end | ||
| + | |||
| + | %%% y(t) = x(2t) %%% Doubles the Frequency of the notes | ||
| + | for counter = 1: length(notes) | ||
| + | t = 0:delta:durations(counter); | ||
| + | y = sin(2*pi*notes(counter)*t*2); | ||
| + | sound (y, 1/delta); | ||
| + | end | ||
| + | </pre> | ||
| + | [[Media:HailPurduex3_ECE301Fall2008mboutin.wav]] | ||
Latest revision as of 07:04, 5 September 2008
% Homework 1.1 Hail Purdue
%David Record
%September 3rd 2008
%%Song Notes and Lyrics:
%%http://www.purdue.edu/bands/media/Sounds/aamb/Hail%20Purdue%20Piano%20Sheet.pdf
%Lyrics
%Hail, to Old Purdue, All hail to our gold and black!
%Notes:
%E, F, G, A_, B_, C5, D5_, B
%Corresponding Frequencies: http://www.phy.mtu.edu/~suits/notefreqs.html
E = 311.13; %HZ
F = 349.23; %HZ
G = 392.00; %HZ
A_ = 415.30; %HZ
B_ = 466.16; %HZ
C5 = 523.25; %HZ
D5_ = 554.37; %HZ
B = 493.3; %HZ
%Durations
delta = 0.00005; %As defined in class
quarter = .25; %Quarter Note
half = .5; %Half Note
whole = 1; %Whole Note
eigth = .125; %Eighth Note
notes = [E, F, G, A_, B_, C5, C5, D5_, D5_, D5_, A_, B_, B, C5];
durations = [half, quarter, quarter, (quarter+eighth), eighth, quarter, quarter, quarter, eighth, eighth, quarter, eigth, eigth, (half+quarter) ];
%%% Song Unaltered %%%
for counter = 1: length(notes)
t = 0:delta:durations(counter);
y = sin(2*pi*notes(counter)*t);
sound (y, 1/delta);
end
%%% Twice as Fast %%%
for counter = 1: length(notes)
t = 0:delta:durations(counter)/2;
y = sin(2*pi*notes(counter)*t);
sound (y, 1/delta);
end
%%% y(t) = x(2t) %%% Doubles the Frequency of the notes
for counter = 1: length(notes)
t = 0:delta:durations(counter);
y = sin(2*pi*notes(counter)*t*2);
sound (y, 1/delta);
end
