%Shannon Rigney %ECE 301 HW 1
%Part 1- Smoke On The Water %Tempo 112 BPM %G Bflat C G Bflat Dflat C G Bflat C Bflat G %Q Q DQ Q Q E H Q Q DQ Q Q %f = 2 ^ (n/12) * fa clc; clear;
delta = 0.00005;
for x = 1:1:3 %A for loop determining whether it is part a, b, or c.
if x == 2
Tempo = 224; %Doubles the tempo for part b
else
Tempo = 112; %Tempo used for parts a and c.
end
%Note Lengths calculated in seconds Quarter = 0:delta: 1 * 60/Tempo; Eighth = 0:delta: 0.5 * 60/Tempo; Half = 0:delta: 2 * 60/Tempo; DotQ = 0:delta: 1.5 * 60/Tempo;
%Frequencies of pitches used in Smoke On The Water
if x == 3
fa = 880; %Rescaling the pitch of A4 for part c to be y(t) = x(2t)
else
fa = 440; %Pitch for A4
end
fG = 2 ^ (-2/12) * fa; fBf = 2 ^ (1/12) * fa; fC = 2 ^ (3/12) * fa; fDf = 2 ^ (4/12) * fa;
%Notes used G_Q = sin(2 * pi * fG * Quarter); Bf_Q = sin(2 * pi * fBf * Quarter); C_H = sin(2 * pi * fC * Half); C_DQ = sin(2 * pi * fC * DotQ); Df_E = sin(2 * pi * fDf * Eighth);
%Play song song = [G_Q, Bf_Q, C_DQ, G_Q, Bf_Q, Df_E, C_H, G_Q, Bf_Q C_DQ, Bf_Q, G_Q]; sound(song, 1/delta);
if x == 1
wavwrite(song,1/delta,32,'srigney_smokeonthewater_regular')
elseif x == 2
wavwrite(song,1/delta,32,'srigney_smokeonthewater_spedup')
else
wavwrite(song,1/delta,32,'srigney_smokeonthewater_highpitch')
end
end
%Part 2- Beatles clear all; clc;
[Beatles, fs] = wavread('Beatles.wav'); %a) It is kind of hard to hear, but it sounds like the extracted words are %"Number Nine" repeatedly
Reversed = flipud(Beatles); sound(10 * Reversed, fs); wavwrite(Reversed, fs, 'srigney_Reversed_Beatles');
%b) It is also hard to hear so I amplified it by ten. The extracted words kind %of sound like "Turn me on Edmond" or "Turn me on again" or something of %the sort.
