%ECE 301 HW 1
%Sarah Abraham
%Professor Boutin
%Part 1
%play melody of Smoke On the Water at original tempo
%G Bf C G Bf Df C G Bf C Bf G
%H = 1/2 note
%Q = 1/4 note
%E = 1/8 note
%DQ = dotted quarter
clc
clear
delta = 5e-5; %sampling rate
bpm = 112; %beats per minute
bps = 60/bpm; %seconds per beat
H = 2*bps; % seconds required for half note
Q = 1*bps; % seconds required for quarter note
E = .5*bps; % seconds required for eighth note
DQ = 1.5*bps; % seconds required for dotted quarter note
%time
H_t = 0:delta:H;
Q_t = 0:delta:Q;
E_t = 0:delta:E;
DQ_t = 0:delta:DQ;
%frequencies for notes
fa = 440; %Hz
fg = 2^(-2/12)*fa;
fbf = 2^(1/12)*fa;
fc =2^(3/12)*fa;
fdf = 2^(4/12)*fa;
%notes with appropriate times
g = sin(2*pi*fg*Q_t);
bf = sin(2*pi*fbf*Q_t);
c_dq = sin(2*pi*fc*DQ_t);
c_h = sin(2*pi*fc*H_t);
df = sin(2*pi*fdf*E_t);
%song at regular tempo
song = [g, bf, c_dq, g, bf, df, c_h, g, bf, c_dq, bf, g];
%plays
song sound(song, 1/delta);
%write song to wavfile
wavwrite(song, 1/delta, 'Regular_Tempo.wav')
%PART 1B
bpm = 224; %beats per minute
bps = 60/bpm; %seconds per beat
H = 2*bps; % seconds required for half note
Q = 1*bps; % seconds required for quarter note
E = .5*bps; % seconds required for eighth note
DQ = 1.5*bps; % seconds required for dotted quarter note
%time
H_t = 0:delta:H;
Q_t = 0:delta:Q;
E_t = 0:delta:E;
DQ_t = 0:delta:DQ;
%notes with appropriate times
g = sin(4*pi*fg*Q_t);
bf = sin(4*pi*fbf*Q_t);
c_dq = sin(4*pi*fc*DQ_t);
c_h = sin(4*pi*fc*H_t);
df = sin(4*pi*fdf*E_t);
%song at faster tempo
song = [g, bf, c_dq, g, bf, df, c_h, g, bf, c_dq, bf, g];
%plays song sound(song, 1/delta);
%write song to wavfile
wavwrite(song, 1/delta, 'Faster_Tempo.wav')
%PART 1C
bpm = 112; %beats per minute
bps = 60/bpm; %seconds per beat
H = 2*bps; % seconds required for half note
Q = 1*bps; % seconds required for quarter note
E = .5*bps; % seconds required for eighth note
DQ = 1.5*bps; % seconds required for dotted quarter note
%time
H_t = 0:delta:H;
Q_t = 0:delta:Q;
E_t = 0:delta:E;
DQ_t = 0:delta:DQ;
%frequencies for notes
fa = 880; %Hz
fg = 2^(-2/12)*fa;
fbf = 2^(1/12)*fa;
fc =2^(3/12)*fa;
fdf = 2^(4/12)*fa;
%notes with appropriate times
g = sin(2*pi*fg*Q_t);
bf = sin(2*pi*fbf*Q_t);
c_dq = sin(2*pi*fc*DQ_t);
c_h = sin(2*pi*fc*H_t);
df = sin(2*pi*fdf*E_t);
%song at regular tempo
song = [g, bf, c_dq, g, bf, df, c_h, g, bf, c_dq, bf, g];
%plays
song sound(song, 1/delta);
%write song to wavfile
wavwrite(song, 1/delta, 'Higher_Octave.wav')
%Part 2
%load Beatles clip and frequency
[beatles,fs] = wavread('Beatles.wav'); %plays clip sound(beatles, fs);
%The repeated message seems to be 'Number Nine' repeated over and over %again.
%reverses the sound matrix
reverse = flipud(beatles);
%plays reversed clip
sound(reverse, fs)
%The repeated message seems like it says 'Turn me on dead man'
