Difference between revisions of "HW1.1 Paul Scheffler ECE301Fall2008mboutin" - Rhea

Latest revision as of 12:33, 4 September 2008

Sound File

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

Matlab Code

%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')