MATLAB code
% Ben Laskowski (blaskows@purdue.edu) % September 5, 2008 % ECE301 Section 2 HW1 % % This file is supposed to reverse and slow a wav file for extraction of % alleged subliminal messages. % Begin by clearing the output console and all memory. clear; clc; %Open the wave file and get its length, sample size, and sampling rate [data,fs,nbits]=wavread('jpforward.wav'); %Play the file once normally disp('Playing the unaltered file...') wavplay(data,fs); %Reverse the file, play it, and write it out Length=size(data); MaxCount=Length(1); reversedata=zeros(MaxCount,1); for counter=MaxCount:-1:1 reversedata(MaxCount-counter+1,1)=data(counter); end disp('Playing reverse at normal speed...'); wavplay(reversedata,fs); %To slow the original data, we can just write out the reversed data with % a fraction of the correct sampling rate. disp('Playing reverse at 67% speed...'); wavwrite(reversedata,fs/1.5,nbits,'jpreverseslow.wav'); wavplay(reversedata,fs/1.5);