%mission impossible

 a = 2*pi;

delta = 0.00005;

t = 0:delta:3;

Beats_per_minutes = 112;

Beats_per_seconds = Beats_per_minutes / 60;

Seconds_per_beats = 1/Beats_per_seconds;

%The Length of each note

E = 0:delta:Seconds_per_beats/2;

Q = 0:delta:Seconds_per_beats;

H = 0:delta:Seconds_per_beats*2;

DQ = 0:delta:3*Seconds_per_beats/2;

%The Length of another notes

E2 = 0:delta:Seconds_per_beats/4;

Q2 = 0:delta:Seconds_per_beats/2;

H2 = 0:delta:Seconds_per_beats;

DQ2 = 0:delta:3*Seconds_per_beats/4;

%Frequency of each note

G = 391.995;

BF = 466.164;

C = 523.251;

DF = 554.365;

%Shorting the names

b = sin(a*G*Q);

c = sin(a*BF*Q);

d = sin(a*C*DQ);

e = sin(a*DF*E);

f = sin(a*C*H);

b2 = sin(a*G*Q2);

c2 = sin(a*BF*Q2);

d2 = sin(a*C*DQ2);

e2 = sin(a*DF*E2);

f2 = sin(a*C*H2);

%Making music of Mission_Impossible

music2 = [b2,c2,d2,...

b2,c2,e2,f2,...

b2,c2,d2,c2,...

b2];

music = [b,c,d,...

b,c,e,f,...

b,c,d,c,...

b];

%Sound

sound(music,1/delta);

sound(music2,1/delta);

sound(music,1.5/delta);

%Wavwrite

wavwrite(music,1/delta,'Mission_Impossible_x');

wavwrite(music2,1/delta,'Mission_Impossible_y');

wavwrite(music,1.5/delta,'Mission_Impossible_z');

%mission impossible 2

[beatles, Fs] = wavread('Beatles.wav');

sound(beatles,Fs);

beatles_reverse = flipud(beatles);

sound(beatles_reverse,Fs);

wavwrite(beatles_reverse,Fs,'Mission_Impossible_2');

%First time says "Number 9"

%Second time it says something like "Turn me on, dead man"

Media:Mission_Impossible_x.wav Media:Mission_Impossible_y.wav Media:Mission_Impossible_z.wav Media:Mission_impossible_1.wav

Alumni Liaison

Prof. Math. Ohio State and Associate Dean
Outstanding Alumnus Purdue Math 2008

Jeff McNeal