(New page: %Ellen Fissel %ECE301 %1A Play Smoke on the water delta=0.00005;<br>bpm=112;<br>spb=60/bpm; %seconds per beat<br>quarter=spb;<br>eighth=spb/2;<br>dottedq=spb*3/2;<br>half=spb*2;...)
 
 
Line 38: Line 38:
  
 
%Flipped says "turn me on dead man"<br>
 
%Flipped says "turn me on dead man"<br>
 +
[[media:smokeonthewater1A.wav]]
 +
[[media:smokeonthewater1B.wav]]
 +
[[media:smokeonthewater1C.wav]]
 +
[[media:flipped2B.wav]]

Latest revision as of 07:41, 19 January 2011

%Ellen Fissel

%ECE301

%1A Play Smoke on the water

delta=0.00005;
bpm=112;
spb=60/bpm; %seconds per beat
quarter=spb;
eighth=spb/2;
dottedq=spb*3/2;
half=spb*2;

qt=[0:delta:quarter]; %quarter time
et=[0:delta:eighth]; %eighth time
dqt=[0:delta:dottedq]; %dotted quarter time
ht=[0:delta:half]; %half time

G_q=sin(2*pi*392*qt); %G quarter time
Bf_q=sin(2*pi*466*qt); %B flat quarter time
C_dq=sin(2*pi*523*dqt); %C dotted quarter time
Df_e=sin(2*pi*554*et); %D flat eighth time
C_h=sin(2*pi*523*ht); %C half time

tune1=[G_q,Bf_q,C_dq,G_q,Bf_q,Df_e,C_h,G_q,Bf_q,C_dq,Bf_q,G_q];

wavwrite(tune1,20000,'smokeonthewater1A');

%1B Play Smoke on the water twice as fast

qt2=[0:delta:(quarter/2)]; %quarter time fast
et2=[0:delta:(eighth/2)]; %eighth time fast
dqt2=[0:delta:(dottedq/2)]; %dotted quarter time fast
ht2=[0:delta:(half/2)]; %half time fast

G_q2=sin(2*pi*392*qt2); %G quarter time
Bf_q2=sin(2*pi*466*qt2); %B flat quarter time
C_dq2=sin(2*pi*523*dqt2); %C dotted quarter time
Df_e2=sin(2*pi*554*et2); %D flat eighth time
C_h2=sin(2*pi*523*ht2); %C half time

tune2=[G_q2,Bf_q2,C_dq2,G_q2,Bf_q2,Df_e2,C_h2,G_q2,Bf_q2,C_dq2,Bf_q2,G_q2];

wavwrite(tune2,20000,'smokeonthewater1B');

%1C Play Smoke on the water with y(t)=x(2t)

G_q=sin(4*pi*392*qt); %G quarter time higher
Bf_q=sin(4*pi*466*qt); %B flat quarter time higher
C_dq=sin(4*pi*523*dqt); %C dotted quarter time higher
Df_e=sin(4*pi*554*et); %D flat eighth time higher
C_h=sin(4*pi*523*ht); %C half time higher

tune3=[G_q,Bf_q,C_dq,G_q,Bf_q,Df_e,C_h,G_q,Bf_q,C_dq,Bf_q,G_q];

wavwrite(tune3,20000,'smokeonthewater1C');

%2A
%Beatles song plays"number nine"

%2B
beatles=wavread('beatles.wav');
flip=flipud(beatles);
wavwrite(flip,40000,'flipped2B');

%Flipped says "turn me on dead man"
media:smokeonthewater1A.wav media:smokeonthewater1B.wav media:smokeonthewater1C.wav media:flipped2B.wav

Alumni Liaison

Meet a recent graduate heading to Sweden for a Postdoctorate.

Christine Berkesch