% Michael Comasco % ECE 301 % Homework 1 % January 19, 2010
clear all clc
% Part 1 - "Smoke on the Water"
beats = 60 / 112; %Length of each beat based off 112 beats per minute
d = 0.00005; %Delta which describes how many timeframes there are
%Defining length of beat Q = 0:d:beats; % Quarter Note H = 0:d:beats * 2; % Half Note E = 0:d:beats * (1/2); % Eighth Note DQ = 0:d:beats * (3/2); % Dotted Quarter Note
%Relating notes to A4 and associating notes to appropriate length note_G = sin(2 * pi * 2 ^ ((-2) / 12) * 440 * Q); %Quarter G note note_Bflat = sin(2 * pi * 2 ^ ((1) / 12) * 440 * Q); %Quarter Bflat note note_C1 = sin(2* pi * 2 ^ (3 / 12) * 440 * DQ); %Dotted quarter C note note_C2 = sin(2* pi * 2 ^ (3 / 12) * 440 * H); %Half C note note_Dflat = sin(2 * pi * 2 ^ (4 / 12) * 440 * E); %Eighth Dflat note
%Transforming the sound(q denotes quicker) q_note_G = sin(2 * pi * 2 ^ ((-2) / 12) * 440 * Q * 2); q_note_Bflat = sin(2 * pi * 2 ^ ((1) / 12) * 440 * Q * 2); q_note_C1 = sin(2* pi * 2 ^ (3 / 12) * 440 * DQ * 2); q_note_C2 = sin(2* pi * 2 ^ (3 / 12) * 440 * H * 2); q_note_Dflat = sin(2 * pi * 2 ^ (4 / 12) * 440 * E * 2);
%Arranging the notes into their respective order Score1 = [note_G, note_Bflat, note_C1, note_G, note_Bflat, note_Dflat, note_C2, note_G, note_Bflat, note_C1, note_Bflat, note_G]; Score2 = [note_G, note_Bflat, note_C1, note_G, note_Bflat, note_Dflat, note_C2, note_G, note_Bflat, note_C1, note_Bflat, note_G]; Score3 = [q_note_G, q_note_Bflat, q_note_C1, q_note_G, q_note_Bflat, q_note_Dflat, q_note_C2, q_note_G, q_note_Bflat, q_note_C1, q_note_Bflat, q_note_G];
%Playing the song sound(Score1,1/d) %At original tempo sound(Score2,2/d) %Twice as fast sound(Score3,1/d) %Transformed
wavwrite(Score1,1/d,'Hw_1_ECE301_Comasco_Orig_Tempo') wavwrite(Score2,2/d,'Hw_1_ECE301_Comasco_Two_Times') wavwrite(Score3,1/d,'Hw_1_ECE301_Comasco_x(2t)')
Media:Hw_1_ECE301_Comasco_Orig_Tempo.wav
Media:Hw_1_ECE301_Comasco_Two_Times.wav
Media:Hw_1_ECE301_Comasco_x(2t).wav
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Part 2 - Hidden Backward Message
%Reading the Beatles File [Y,Fs] = wavread('Beatles.wav');
%Flipping the file backwards X = flipud(Y);
%Playing the reversed message sound(30 * X,Fs)
wavwrite(30 * X,Fs,'Hw_1_ECE301_Comasco_Sublim_Message')
Media:Hw_1_ECE301_Comasco_Sublim_Message.wav
%%%%%%%%%%%% %The reversed song does contain a message. It sounds as if the words "Number %Nine" bacwards speak the words "Turn Me On Dead Mend," which would make %that the subliminal message!
