%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"
