% 1.
% a)

deltat = 5e-5; %detemine the length of each tempo
Q = 0:deltat:(60/112);
E = 0:deltat:(60/112/2);
DQ = 0:deltat:(60/112*1.5);
H = 0:deltat:(60/112*2);

fA = 440*2*pi; %detemine the frequency of each tune
fG = 2^(-2/12) * fA;
fBf = 2^(1/12) * fA;
fC = 2^(3/12) * fA;
fD = 2^(4/12) * fA;

QG = sin(fG * Q); %generate each tune
QBf = sin(fBf * Q);
DQC = sin(fC * DQ);
EDf = sin(fD * E);
HC = sin(fC * H);



melody = [QG,QBf,DQC,QG,QBf,EDf,HC,QG,QBf,DQC,QBf,QG]; %generate melody
sound(melody,1/deltat);

wavwrite(melody,1/deltat,'smoke.wav'); %generate sound file

pause(10);


% b)

deltat = 5e-5; %detemine the length of each tempo
Q = 0:deltat:(60/112/2);
E = 0:deltat:(60/112/2/2);
DQ = 0:deltat:(60/112*1.5/2);
H = 0:deltat:(60/112*2/2);

fA = 440*2*pi; %detemine the frequency of each tune
fG = 2^(-2/12) * fA;
fBf = 2^(1/12) * fA;
fC = 2^(3/12) * fA;
fD = 2^(4/12) * fA;

QG = sin(fG * Q); %generate each tune
QBf = sin(fBf * Q);
DQC = sin(fC * DQ);
EDf = sin(fD * E);
HC = sin(fC * H);



melody = [QG,QBf,DQC,QG,QBf,EDf,HC,QG,QBf,DQC,QBf,QG]; %generate melody
sound(melody,1/deltat);

wavwrite(melody,1/deltat,'smokefast.wav'); %generate sound file

pause(10);

% c)
deltat = 5e-5; %detemine the length of each tempo
Q = 0:deltat:(60/112);
E = 0:deltat:(60/112/2);
DQ = 0:deltat:(60/112*1.5);
H = 0:deltat:(60/112*2);

fA = 880*2*pi; %detemine the frequency of each tune
fG = 2^(-2/12) * fA;
fBf = 2^(1/12) * fA;
fC = 2^(3/12) * fA;
fD = 2^(4/12) * fA;

QG = sin(fG * Q); %generate each tune
QBf = sin(fBf * Q);
DQC = sin(fC * DQ);
EDf = sin(fD * E);
HC = sin(fC * H);



melody = [QG,QBf,DQC,QG,QBf,EDf,HC,QG,QBf,DQC,QBf,QG]; %generate melody
sound(melody,1/deltat);

wavwrite(melody,1/deltat,'smokefast.wav'); %generate sound file

pause(10);


%2.

[beatles, Fs] = wavread('Beatles.wav');
beatles_rev = flipud(beatles);
sound(beatles_rev,Fs);
wavwrite(beatles_rev,Fs,'beatles_rev.wav');

www.projectrhea.org/rhea/images/7/7f/Smoke.wav

www.projectrhea.org/rhea/images/2/22/Smokefast.wav

www.projectrhea.org/rhea/images/6/61/Smokehigh.wav

www.projectrhea.org/rhea/images/9/92/Beatles_rev.wav

Alumni Liaison

Prof. Math. Ohio State and Associate Dean
Outstanding Alumnus Purdue Math 2008

Jeff McNeal