(→Sound File) |
(→Matlab Code) |
||
| Line 6: | Line 6: | ||
== Matlab Code == | == 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') | ||
Revision as of 12:32, 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')
