%ECE 301 Homework 1
%Zachary Flohr
%Semester - Spring 2011
clear
clc
%PART1-A
%Time and beat information
fa = 440; %Hz
BPM = 112; %beats per minute
sec = 1/(112/60); %seconds per beat
%Length of each type of note
%This is an array of time for each note. The time step is chosen to be
%very small to get a good sampling rate
timestep = 0.00001; %seconds
Half = 0:timestep:(2*sec); %half note
Quarter = 0:timestep:(1*sec); %quarter note
Eighth = 0:timestep:(0.5*sec); %eighth note
DottedQuarter = 0:timestep:(1.5*sec); %dotted quarter note
%Composition of each note - Each frequency is produced for the needed time %of each note
Note1a = sin(2*pi*fa*2^(-2/12)*Quarter); Note2a = sin(2*pi*fa*2^(1/12)*Quarter); Note3a = sin(2*pi*fa*2^(3/12)*DottedQuarter); Note4a = sin(2*pi*fa*2^(-2/12)*Quarter); Note5a = sin(2*pi*fa*2^(1/12)*Quarter); Note6a = sin(2*pi*fa*2^(4/12)*Eighth); Note7a = sin(2*pi*fa*2^(3/12)*Half); Note8a = sin(2*pi*fa*2^(-2/12)*Quarter); Note9a = sin(2*pi*fa*2^(1/12)*Quarter); Note10a = sin(2*pi*fa*2^(3/12)*DottedQuarter); Note11a = sin(2*pi*fa*2^(1/12)*Quarter); Note12a = sin(2*pi*fa*2^(-2/12)*Quarter);
%Combine each of the notes into one sound file Smoke1 = [Note1a, Note2a, Note3a, Note4a, Note5a, Note6a, Note7a, Note8a, Note9a, Note10a, Note11a, Note12a];
%Play the finished sound file sound(Smoke1,1/timestep); wavwrite(Smoke1,1/timestep,'zflohr_ECE301_HW1_Part1a');
pause(6); %Has a pause between the different sound files
%PART1-B %Play the tune at twice the speed %Since the BPM doubles, then the length of each note is cut in half %The arrays of the notes will only be half the length as the original
timestep = 0.00001; %seconds Half = 0:timestep:(2*sec/2); %half note Quarter = 0:timestep:(1*sec/2); %quarter note Eighth = 0:timestep:(0.5*sec/2); %eighth note DottedQuarter = 0:timestep:(1.5*sec/2); %dotted quarter note
%Re-composition of each note - Calculated in the same manner as in Part 1 %with the length of the notes being altered.
Note1b = sin(2*pi*fa*2^(-2/12)*Quarter); Note2b = sin(2*pi*fa*2^(1/12)*Quarter); Note3b = sin(2*pi*fa*2^(3/12)*DottedQuarter); Note4b = sin(2*pi*fa*2^(-2/12)*Quarter); Note5b = sin(2*pi*fa*2^(1/12)*Quarter); Note6b = sin(2*pi*fa*2^(4/12)*Eighth); Note7b = sin(2*pi*fa*2^(3/12)*Half); Note8b = sin(2*pi*fa*2^(-2/12)*Quarter); Note9b = sin(2*pi*fa*2^(1/12)*Quarter); Note10b = sin(2*pi*fa*2^(3/12)*DottedQuarter); Note11b = sin(2*pi*fa*2^(1/12)*Quarter); Note12b = sin(2*pi*fa*2^(-2/12)*Quarter);
%Combine each of the notes into one sound file Smoke2 = [Note1b, Note2b, Note3b, Note4b, Note5b, Note6b, Note7b, Note8b, Note9b, Note10b, Note11b, Note12b];
%Play the finished tune sound(Smoke2,1/timestep); wavwrite(Smoke2,1/timestep,'zflohr_ECE301_HW1_Part1b');
pause(6); %Has a pause between the sound files
%PART1-C %Transform of y(t) = x(2t) %We can play the original sound file Smoke1 at a frequency twice as fast as %originally played. The length of the original notes remain in tact while %the playing frequency is affected by the transformation of y(t) = x(2t)
%Play original file at new frequency and write the sound file sound(Smoke1,2/timestep); wavwrite(Smoke1,2/timestep,'zflohr_ECE301_HW1_Part1c');
pause(6) %Has a pause between the sound files
%PART 2 - Beatles Song "Hidden Message" %The initial sound file is assumed to be in the same directory. The file %is read in and saved
[y,fs] = wavread('Beatles.wav');
%The flipud command reverses the array and saves it as z. I amplified the %file by 5 to better hear the output. z = flipud(y); z = z*5;
%The sound file is played and written to the file. sound(z,fs); wavwrite(z,fs,'zflohr_ECE301_HW1_Part2');
%The original sound file repeated the phrase "Number 9" over and over. The %reversed file has a repeated phrase as well, which sounds like "Turn me %on, dead man".
