FightSong_ECE301Fall2008mboutin.wav FastFightSong_ECE301Fall2008mboutin.wav RescaledFightSong_ECE301Fall2008mboutin.wav
%Tyler Johnson
%September 3rd, 2008
%clear memory
clear;
%clear console
clc;
%Frequencies for each note
%using the frequencies from the homework page, the A note will have a frequency of 440 Hz
%some of the frequencies from the homework page didn't sound right, so I used frequency values from my friend that sounded better
x = 264;
UC = 2*x %523
B =(15*x)/8 %493
A =415 %(5*x)/3 % 415
G =(3*x)/2 %392
F =(4*x)/3 %349
E =311 %(5*x)/4 %311
D =(17*x)/8 %554
MC =x
%Length of note
delta = .00005;
EI = .125; %Eigth Note
Q = .25; %Quarter Note
H = .5; %Half Note
T = .75; %Three Quarters Note
W = 1; %Whole Note
%Song verticies
%Song plays "Hail Hail to old Purdue! All hail to our old gold and black"
Notes = [E, F, G, A, B, UC, UC, D, D, D, A, B, B, UC];
Lengths = [H, Q, Q, Q+EI, EI, Q, Q, Q, EI, EI, Q, EI, EI, H+Q];
for counter = 1:14
t=0:delta:Lengths(counter);
d=sin(2*pi*t*Notes(counter));
sound(d,1/delta);
end
pause(2);
%Play twice as fast
for counter = 1:14
t=0:delta:Lengths(counter)/2;
d=sin(2*pi*t*Notes(counter));
sound(d,1/delta);
end
pause(2);
%Rescaled
for counter = 1:14
t=0:delta:Lengths(counter);
d=sin(2*pi*(t*2)*Notes(counter));
sound(d,1/delta);
end
