%Daniel Barjum
%ECE 301 HW 1.1
%HAIL PURDUE (FIGHT SONG)
clear
clc
%NOTES AND THEIR FREQUENCIES IN HERTZ
Eb = 311.13;
F = 349.23;
G = 392.00;
Ab = 415.30;
Bb = 466.16;
B = 493.88;
C5 = 523.25;
Db5 = 554.37;
dt = 0.00005; %change in time
%NOTE ORDER AND THEIR TIMES
sng = [Eb, F, G, Ab, Bb, C5, C5, Db5, Db5, Db5, Ab, Bb, B, C5];
lngth = [1/2, 1/4, 1/4, 5/8, 1/8, 1/4, 1/4, 1/4, 1/8, 1/8, 1/4, 1/8, 1/8, 3/4];
%TO PLAY AT NORMAL SPEED
lcv = 1;
t = 0:dt:lngth(lcv);
while lcv <= 14
y = sin(2 * pi * sng(lcv) * t);
sound(y, 1/dt);
lcv = lcv + 1;
if lcv < 15
t = 0:dt:lngth(lcv);
end
end
%TO PLAY AT 2x SPEED
lcv = 1;
lngth = lngth / 2; %DIVIDE LENGTH OF TIME BY 2
t = 0:dt:lngth(lcv);
while lcv <= 14
y = sin(2 * pi * sng(lcv) * t);
sound(y, 1/dt);
lcv = lcv + 1;
if lcv < 15
t = 0:dt:lngth(lcv);
end
end
%TO RESCALE THE SONG FROM y(t) = x(2t)
sng = sng * 2 %DOUBLE THE FREQUENCY
lcv = 1;
t = 0:dt:lngth(lcv);
while lcv <= 14
y = sin(2 * pi * sng(lcv) * t);
sound(y, 1/dt);
lcv = lcv + 1;
if lcv < 15
t = 0:dt:lngth(lcv);
end
end
SOUND FILES
Media:hail_purdue1_ECE301Fall2008mboutin.wav
