% Name: Allan Diaz % Date: 01/19/2010 % ECE 301 Homework #1

% Part One: Playing Music

Fa = 440; % Frequency of the A4 Note

tempo = 60/112; % Original Tempo 112 BPM

tstep = 0.00005; % Step size for time

H = 0:tstep:tempo*2;  %Length of a half note Q = 0:tstep:tempo;  %Length of a quarter note E = 0:tstep:tempo/2;  %Length of a eight note DQ = 0:tstep:tempo*3/2; %Length of a dotted quarter note S = 0:tstep:tempo*5/2; %Length of silence

% Smoke on the Water

QG = sin(2*pi*2^(-2/12)*Fa*Q); % G note (Quarter QBf = sin(2*pi*2^(1/12)*Fa*Q);  % B-Flat note (Quarter) DQC = sin(2*pi*2^(3/12)*Fa*DQ); % C note (Dotted Quarter) EDf = sin(2*pi*2^(4/12)*Fa*E);  % D-Flat note (Eight) HC = sin(2*pi*2^(3/12)*Fa*H);  % C note (Half) Si = sin(S);  % Silence

Smoker = [QG, QBf, DQC, QG, QBf, EDf, HC, QG, QBf, DQC, QBf, QG, Si];

sound(Smoker, 1/tstep); wavwrite(Smoker,1/tstep,32, 'Smoker')

% Smoke on the water tuned twice as fast

2QG = sin(2*pi*2^(-2/12)*Fa*Q/2); % G note (Quarter 2QBf = sin(2*pi*2^(1/12)*Fa*Q/2);  % B-Flat note (Quarter) 2DQC = sin(2*pi*2^(3/12)*Fa*DQ/2); % C note (Dotted Quarter) 2EDf = sin(2*pi*2^(4/12)*Fa*E/2);  % D-Flat note (Eight) 2HC = sin(2*pi*2^(3/12)*Fa*H/2);  % C note (Half) 2Si = sin(S/2)  % Silence

Smokef = [2QG, 2QBf, 2DQC, 2QG, 2QBf, 2EDf, 2HC, 2QG, 2QBf, 2DQC, 2QBf, 2QG, 2Si];

sound(Smokef, 1/tstep); wavwrite(Smokef,1/tstep,32, 'Smokef')

% Smoke on the water. Part c

cQG = sin(4*pi*2^(-2/12)*Fa*Q); % G note (Quarter cQBf = sin(4*pi*2^(1/12)*Fa*Q);  % B-Flat note (Quarter) cDQC = sin(4*pi*2^(3/12)*Fa*DQ); % C note (Dotted Quarter) cEDf = sin(4*pi*2^(4/12)*Fa*E);  % D-Flat note (Eight) cHC = sin(4*pi*2^(3/12)*Fa*H);  % C note (Half) cSi = sin(4*S)  % Silence

Smokec = [cQG, cQBf, cDQC, cQG, cQBf, cEDf, cHC, cQG, cQBf, cDQC, cQBf, cQG, cSi];

sound(Smokec, 1/tstep); wavwrite(Smokec,1/tstep,32, 'Smokec')

% Part Two: Reverse Playback

[Beatles, f] = wavread('Beatles.wav'); %Set the variable Beatles to the song

Rev = flipud(Beatles);  % Set the variable Rev to the reverse of Beatles

wavwrite(Rev, f, 'Reversed');  % Outputs the wav file

Sorry I don't know how to upload the files. I should have done it ahead of time. I hope you can understand. Please let me know if I can do it sometime later.

Alumni Liaison

EISL lab graduate

Mu Qiao