%Michaela Carrieres %HW#1
clear; clc;
%SMOKE ON THE WATER
delta = 0.00005;
bpm = 112; %beats per minute
bps = bpm/60; %beats per second
z = zeros(2/delta,1); %silence
%frequencies
freqG = 440*(2^(-2/12)); %frequency of the G note
freqBflat = 440*(2^(1/12)); %frequency of the Bflat note
freqC = 440*(2^(3/12)); %frequency of the C note
freqDflat = 440*(2^(4/12)); %frequency of the Dflat note
%note durations part 1a
durquarter1 = 0:delta:bps/4;%duration of a quarter note
durhalf1 = 0:delta:bps/2;%duration of a half note
durqdot1 = 0:delta:((bps/4) + (bps/8));%duration of a dotted quarter note
dureighth1 = 0:delta:bps/8;%duration of an eighth note
%note durations part 1b
durquarter2 = 0:delta:bps/8; %duration of a quarter note sped up
durhalf2 = 0:delta:bps/4; %duration of a half note sped up
durqdot2 = 0:delta:((bps/4) + (bps/8))/2; %duration of a dotted quarter note sped up
dureighth2 = 0:delta:bps/16; %duration of an eighth note sped up
%notes for song part 1a
G = sin(2*pi*freqG*durquarter1);
Bflat = sin(2*pi*freqBflat*durquarter1);
Cdot = sin(2*pi*freqC*durqdot1);
Dfeight = sin(2*pi*freqDflat*dureighth1);
Chalf = sin(2*pi*freqC*durhalf1);
song1 = [G,Bflat,Cdot,G,Bflat,Dfeight,Chalf,G,Bflat,Cdot,Bflat,G];
sound(song1,1/delta)
sound(z,1/delta)
wavwrite(song1,1/delta,'SmokeOnTheWater_normal');
%notes for song part 1b
G = sin(2*pi*2*freqG*durquarter2);
Bflat = sin(2*pi*2*freqBflat*durquarter2);
Cdot = sin(2*pi*2*freqC*durqdot2);
Dfeight = sin(2*pi*2*freqDflat*dureighth2);
Chalf = sin(2*pi*2*freqC*durhalf2);
song2 = [G,Bflat,Cdot,G,Bflat,Dfeight,Chalf,G,Bflat,Cdot,Bflat,G];
sound(song2,1/delta)
sound(z,1/delta)
wavwrite(song2,1/delta,'SmokeOnTheWater_higherandfaster');
%notes for song part 1c
G = sin(2*2*pi*freqG*durquarter1);
Bflat = sin(2*2*pi*freqBflat*durquarter1);
Cdot = sin(2*2*pi*freqC*durqdot1);
Dfeight = sin(2*2*pi*freqDflat*dureighth1);
Chalf = sin(2*2*pi*freqC*durhalf1);
song3 = [G,Bflat,Cdot,G,Bflat,Dfeight,Chalf,G,Bflat,Cdot,Bflat,G];
sound(song3,1/delta)
sound(z,1/delta)
wavwrite(song3,1/delta,'SmokeOnTheWater_higher');
%BEATLES SONG
[beatles,Fs] = wavread('Beatles.wav');
revbeatles = flipud(beatles); %reversing the clip from the Beatle's song
sound(revbeatles,Fs) %playing the reversed clip
wavwrite(revbeatles, Fs, 'Reversed Beatles');
%Played normally, the song says "number nine"
%Played in reverse, the song sounds like it says "Turn me on done men"
Media:SmokeOnTheWater_normal.wav
Media:SmokeOnTheWater_higherandfaster.wav
