(→MatLab Code) |
(→Matlab Code) |
||
| (3 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')
