HW1.1 Paul Scheffler ECE301Fall2008mboutin - Rhea

Sound File

Sheet music for the sound file taken from here. Part 1. Part 2. Part 2.

%Paul Scheffler %phscheff@purdue.edu %ECE 301 HW1-1.m

clear clc

%Defining Note Frequencies x=264; C=x; B=15*x/8; A=5*x/3; G=3*x/2; F=4*x/3; E=5*x/4; D=9*x/8; hC=2*C; hG=2*G; hE=2*E; hF=2*F; hB=2*B; hD=2*D; hA=2*A;

%Define Note Lengths, 216 bpm(from sheet music). 60/216=quarternote Ql=60/175; Hl=2*Ql; Wl=4*Ql; El=Ql/2; Sl=Ql/4;

%Sampling Rate from class delta=.00005;

%Notes Note=[hE,hE,0,hE,0,hC,hE,hG,0,G,0,hC,G,0,F,F,A,B,B,A, ...

   G,hE,hG,hA,F,hG,0,hE,hC,D,B,hC,G,0,E,E,A,B,B,A,G,hE,hG,hA,F,hG, ...
   hE,hC];

%Lenth NoteLength = [Ql,Ql,El,Ql,El,El,Ql,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,El,Ql,Ql,El,Ql, ...

   Ql,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,Ql,Ql,Ql,El,Ql,Ql,El,Ql,Ql,El,Ql,Ql,Ql,Ql,Ql,Ql,Ql, ...
   Ql,Ql];

%Normal Music n=numel(NoteLength); song = ones(1); for Count = 1:n;

   t=0:delta:NoteLength(Count);
   y=sin(2*pi*Note(Count)*t);
   sound(y,1/delta);
   song=[song,y];

end

wavwrite(song, 44100, 32, 'Mario1.wav') pause(5) song = ones(1); for Count = 1:n;

   t=0:delta:(1/2)*NoteLength(Count);
   y=sin(2*pi*Note(Count)*t);
   sound(y,1/delta);
   song=[song,y];

end wavwrite(song, 44100, 32, 'Mario2.wav')

%Up an Octave

pause(5) song = ones(1); for Count = 1:n;

   t=0:delta:NoteLength(Count);
   y=sin(2*2*pi*Note(Count)*t);
   sound(y,1/delta);
   song=[song,y];

end wavwrite(song, 44100, 32, 'Mario3.wav')