(New page: == Sound File == == MatLab Code ==)
 
(Matlab Code)
 
(4 intermediate revisions by the same user not shown)
Line 1: Line 1:
 
== Sound File ==
 
== Sound File ==
 +
Sheet music for the sound file taken from [http://gprime.net/images/mariopiano/ here].
 +
[[Media:Mario1.wav _ECE301Fall2008mboutin| Part 1]].
 +
[[Media:Mario2.wav _ECE301Fall2008mboutin| Part 2]].
 +
[[Media:Mario3.ogg _ECE301Fall2008mboutin| Part 2]].
  
== MatLab Code ==
+
== Matlab Code ==
 +
<pre>
 +
%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')
 +
</pre>

Latest revision as of 13: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')

Alumni Liaison

Questions/answers with a recent ECE grad

Ryne Rayburn