(New page: %ECE301 hw1 %hw part 1 % (a) Smoke On The Water %Conversion %spb=60/112=0.54s %Declarations n1=-10; %steps for ...)
 
Line 144: Line 144:
  
 
[[Media:Tune_1.wav|Text to replace the filename]]
 
[[Media:Tune_1.wav|Text to replace the filename]]
 +
[[Media:Tune_2.wav|Text to replace the filename]]
 +
[[Media:Tune_3.wav|Text to replace the filename]]
 +
[[Media:reverse.wav|Text to replace the filename]]

Revision as of 11:31, 19 January 2011

                                               %ECE301 hw1
       

%hw part 1

% (a) Smoke On The Water

%Conversion

%spb=60/112=0.54s

%Declarations

n1=-10;  %steps for each note n2=-7; n3=-5; n4=-10; n5=-7; n6=-4; n7=-5; n8=-10; n9=-7; n10=-5; n11=-7; n12=-10;

delta=0.00005;  %sample rate tq=0:delta:0.25;  %Quarter note timing tdq=0:delta:0.75;  %Dotted quarter note timing te=0:delta:0.125;  %Eighth note th=0:delta:0.5;  %Haft note timing

z1=sin(2*pi*(440*2^(n1/12))*tq);  %note G4 z2=sin(2*pi*(440*2^(n2/12))*tq);  %note B-Flat z3=sin(2*pi*(440*2^(n3/12))*tdq);  %note C z4=sin(2*pi*(440*2^(n4/12))*tq);  %note G z5=sin(2*pi*(440*2^(n5/12))*tq);  %note B-Flat z6=sin(2*pi*(440*2^(n6/12))*te);  %note D-flat z7=sin(2*pi*(440*2^(n7/12))*th);  %note C z8=sin(2*pi*(440*2^(n8/12))*tq);  %note G z9=sin(2*pi*(440*2^(n9/12))*tq);  %note B-Flat z10=sin(2*pi*(440*2^(n10/12))*tdq);  %note C z11=sin(2*pi*(440*2^(n11/12))*tq);  %note B-Flat z12=sin(2*pi*(440*2^(n12/12))*tq);  %note G

z=[z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12];  %combined function

sound(z,1/delta)  %sound!


% (b) Two Times Faster

%Conversion

%spb=60/112=0.54s

%Declarations

n1=-10;  %steps for each note n2=-7; n3=-5; n4=-10; n5=-7; n6=-4; n7=-5; n8=-10; n9=-7; n10=-5; n11=-7; n12=-10;

delta=0.00005;  %sample rate tq=0:delta:0.25/2;  %Quarter note timing tdq=0:delta:0.75/2;  %Dotted quarter note timing te=0:delta:0.125/2;  %Eighth note th=0:delta:0.5/2;  %Haft note timing

z1=sin(2*pi*(440*2^(n1/12))*tq);  %note G4 z2=sin(2*pi*(440*2^(n2/12))*tq);  %note B-Flat z3=sin(2*pi*(440*2^(n3/12))*tdq);  %note C z4=sin(2*pi*(440*2^(n4/12))*tq);  %note G z5=sin(2*pi*(440*2^(n5/12))*tq);  %note B-Flat z6=sin(2*pi*(440*2^(n6/12))*te);  %note D-flat z7=sin(2*pi*(440*2^(n7/12))*th);  %note C z8=sin(2*pi*(440*2^(n8/12))*tq);  %note G z9=sin(2*pi*(440*2^(n9/12))*tq);  %note B-Flat z10=sin(2*pi*(440*2^(n10/12))*tdq);  %note C z11=sin(2*pi*(440*2^(n11/12))*tq);  %note B-Flat z12=sin(2*pi*(440*2^(n12/12))*tq);  %note G

z=[z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12];  %combined function

sound(z,1/delta)  %sound!

% (c) Rescale

%Conversion

%spb=60/112=0.54s

%Declarations

n1=-10;  %steps for each note n2=-7; n3=-5; n4=-10; n5=-7; n6=-4; n7=-5; n8=-10; n9=-7; n10=-5; n11=-7; n12=-10;

delta=0.00005;  %sample rate tq=0:delta:0.25;  %Quarter note timing tdq=0:delta:0.75;  %Dotted quarter note timing te=0:delta:0.125;  %Eighth note th=0:delta:0.5;  %Haft note timing

z1=sin(2*pi*(440*2^(n1/12))*2*tq);  %note G4 z2=sin(2*pi*(440*2^(n2/12))*2*tq);  %note B-Flat z3=sin(2*pi*(440*2^(n3/12))*2*tdq);  %note C z4=sin(2*pi*(440*2^(n4/12))*2*tq);  %note G z5=sin(2*pi*(440*2^(n5/12))*2*tq);  %note B-Flat z6=sin(2*pi*(440*2^(n6/12))*2*te);  %note D-flat z7=sin(2*pi*(440*2^(n7/12))*2*th);  %note C z8=sin(2*pi*(440*2^(n8/12))*2*tq);  %note G z9=sin(2*pi*(440*2^(n9/12))*2*tq);  %note B-Flat z10=sin(2*pi*(440*2^(n10/12))*2*tdq);  %note C z11=sin(2*pi*(440*2^(n11/12))*2*tq);  %note B-Flat z12=sin(2*pi*(440*2^(n12/12))*2*tq);  %note G

z=[z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12];  %combined function

sound(z,1/delta)  %sound!

%hw part 2

[y,fs]=wavread('beatles.wav');  %load the tune and assign it to y with its original frequency z=flipud(y);  %reverse the tune sound(z,fs)  %sound!


Text to replace the filename Text to replace the filename Text to replace the filename Text to replace the filename

Alumni Liaison

Correspondence Chess Grandmaster and Purdue Alumni

Prof. Dan Fleetwood