Line 1: | Line 1: | ||
+ | [[FightSong_ECE301Fall2008mboutin.wav]] | ||
+ | [[FastFightSong_ECE301Fall2008mboutin.wav]] | ||
+ | [[RescaledFightSong_ECE301Fall2008mboutin.wav]] | ||
<pre> | <pre> | ||
%Tyler Johnson | %Tyler Johnson |
Revision as of 07:11, 5 September 2008
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