Revision as of 08:15, 19 January 2011 by Zbright (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

clc; clear all;


% PART 1


delta = 0.00005;

for var = 1:3 %beats per minute bpm = 112;

if var ==2

   bpm=112/2;

end

% beats per second beat = bpm/60;


%Eighth note E=0:delta:(beat/8); %Half note H=0:delta:(beat/2); %Dotted Quarter note Dq=0:delta:(beat*(3/8)); %Quarter note Q=0:delta:(beat/4);


%G-note Freq G=391.995; %B-flat freq Bf=466.164; %C freq C=523.251; %D-flat freq Df=554.365;

if var==3

   G=2*G;
   Bf=2*Bf;
   C=2*C;
   Df=2*Df;

end %Establish all notes used in the song %in the form of (Note Letter)_(Length Letter)_note=... G_Q_note=sin(2*pi*G*Q); Bf_Q_note=sin(2*pi*Bf*Q); C_Dq_note=sin(2*pi*C*Dq); C_H_note=sin(2*pi*C*H); Df_E_note=sin(2*pi*Df*E);


%Song at normal speed smoke=[G_Q_note, Bf_Q_note, C_Dq_note, G_Q_note,Bf_Q_note, Df_E_note, C_H_note, G_Q_note, Bf_Q_note, C_Dq_note, Bf_Q_note, G_Q_note];


%create the normal tempo sound file if var==1

   wavwrite(smoke,1/delta,'smoke_normal.wav');

%create the fast tempo sound file elseif var==2

   wavwrite(smoke,1/delta,'smoke_fast.wav'); 

%create the high pitch sound file else

   wavwrite(smoke,1/delta,'smoke_high_pitch.wav');

end

end

% PART 2

% a) The forward meesage from the Beatles is "Number 9"

% reverse signal [Beatles_normal, Fs]=wavread('Beatles.wav'); Beatles_reverse=flipud(Beatles_normal); wavwrite(Beatles_reverse,Fs,'backwards_Beatles')

% b) In the past I have heard that peolpe think it is saying % "Turn me on dead man." And because of this previous knowledge % it sounds like this, but had I not known this, I probably would % not be able to make anything out.

Alumni Liaison

Basic linear algebra uncovers and clarifies very important geometry and algebra.

Dr. Paul Garrett