%Ben Delaney %ECE 301 %HW1 due Jan 19, 2011
clc; clear; %Part 1 bps = 112 / 60; spb = bps^-1; delta = 0.00005;
%Lenth of each note Eighth = 0:delta:spb/2; Quarter = 0:delta:spb; Half_note = 0:delta:spb*2; Dotted_quarter = 0:delta:3*spb/2;
%frequency of each note Dflat = 554.365; G = 391.995; Bflat = 466.164; C = 523.251;
%Song played at original tempo G_quarter = sin(2*pi*G*Quarter); Bflat_quarter = sin(2*pi*Bflat*Quarter); C_dotquarter = sin(2*pi*C*Dotted_quarter); Dflat_eighth = sin(2*pi*Dflat*Eighth); C_half = sin(2*pi*C*Half_note);
sotw = [G_quarter,Bflat_quarter,C_dotquarter,G_quarter,Bflat_quarter,...
Dflat_eighth,C_half,G_quarter,Bflat_quarter,C_dotquarter,... Bflat_quarter,G_quarter];
sound(sotw,1/delta); wavwrite(sotw,1/delta,'sotw_Ben_Delaney.wav');
%Song played twice as fast clear; clc;
bps = 112 / 60; spb = bps^-1; delta = 0.00005;
Dflat = 554.365; G = 391.995; Bflat = 466.164; C = 523.251;
Eighth = 0:delta:spb/4; Quarter = 0:delta:spb/2; Half_note = 0:delta:spb; Dotted_quarter = 0:delta:3*spb/4;
G_quarter = sin(2*pi*G*Quarter); Bflat_quarter = sin(2*pi*Bflat*Quarter); C_dotquarter = sin(2*pi*C*Dotted_quarter); Dflat_eighth = sin(2*pi*Dflat*Eighth); C_half = sin(2*pi*C*Half_note);
sotw_fast = [G_quarter,Bflat_quarter,C_dotquarter,G_quarter,Bflat_quarter,...
Dflat_eighth,C_half,G_quarter,Bflat_quarter,C_dotquarter,... Bflat_quarter,G_quarter];
sound(sotw_fast,1/delta); wavwrite(sotw_fast,1/delta,'sotw_fast_Ben_Delaney.wav');
%Song transformed clear; clc;
Dflat = 554.365; G = 391.995; Bflat = 466.164; C = 523.251;
bps = 112 / 60; spb = bps^-1; delta = 0.00005;
Eighth = 0:delta:spb/2; Quarter = 0:delta:spb; Half_note = 0:delta:spb*2; Dotted_quarter = 0:delta:3*spb/2;
G_quarter = sin(2*pi*G*Quarter); Bflat_quarter = sin(2*pi*Bflat*Quarter); C_dotquarter = sin(2*pi*C*Dotted_quarter); Dflat_eighth = sin(2*pi*Dflat*Eighth); C_half = sin(2*pi*C*Half_note);
sotw_transformed = [G_quarter,Bflat_quarter,C_dotquarter,G_quarter,Bflat_quarter,...
Dflat_eighth,C_half,G_quarter,Bflat_quarter,C_dotquarter,... Bflat_quarter,G_quarter];
sound(sotw_transformed, 2/delta); wavwrite(sotw_transformed,2/delta,'sotw_transformed_Ben_Delaney.wav');
%Part 2 %Read the Beatles file [beatles, fs] = wavread('Beatles.wav');
sound(beatles,fs); rev_beatles = flipud(beatles); sound(rev_beatles,fs); wavwrite(rev_beatles,fs,'Rev_Beatles_Ben_Delaney.wav');
%forward it says number nine
%reverse it says