% Part 1 - Smoke on the Water

for part = 1:3

   if part == 1
       
       tempo = 112;
       octave = 1;
       
   elseif part == 2
       
       tempo = 224;
       octave = 1;
       
   else
       
       tempo = 112;
       octave = 2;
   
   end
   
   fa = 440;
   del = 0.00005;
   beat = 60 / tempo;
   quart = (0:del:beat);
   dotquart = (0:del:1.5*beat);
   half = (0:del:2*beat);
   eighth = (0:del:0.5*beat);
   G = fa * 2^(-2/12);
   Bf = fa * 2^(1/12);
   C = fa * 2^(3/12);
   Df = fa * 2^(4/12);
   
   quart_g = sin(2*pi*G*quart*octave);
   quart_bf = sin(2*pi*Bf*quart*octave);
   dotquart_c = sin(2*pi*C*dotquart*octave);
   eighth_df = sin(2*pi*Df*eighth*octave);
   half_c = sin(2*pi*C*half*octave);
   smoke = [quart_g, quart_bf, dotquart_c, quart_g, quart_bf, eighth_df, half_c, quart_g, quart_bf, dotquart_c, quart_bf, quart_g];
   sound(smoke, 1/del)
   
       if part == 1
       
           wavwrite(smoke, 20000, 32, 'smoke_part1')
       
       elseif part == 2
       
           wavwrite(smoke, 20000, 32, 'smoke_part2')
       
       else
       
           wavwrite(smoke, 20000, 32, 'smoke_part3')
   
       end
   

end


% Part 2 - Subliminal Message

% In the original file, the phrase 'Number Nine' seems to be repeated.

[beatles, fs] = wavread('Beatles.wav'); sublim = flipud(beatles); sound(15 * sublim, fs) wavwrite(sublim, fs, 32, 'beatles_message')

% However, the reversed file seems to say 'Turn me on Desmond'.

Media:smoke_part1.wav
Media:smoke_part2.wav
Media:smoke_part3.wav
Media:beatles_message.wav

Alumni Liaison

Recent Math PhD now doing a post-doctorate at UC Riverside.

Kuei-Nuan Lin