(New page: %NUMBER 1 clc clear all fA = 440; %frequency of an A in Hz fG = 2 ^ (-2 / 12) * fA; %frequency of a G in Hz fBflat = 2 ^ (1 / 12) * fA; %frequency of a Bflat in Hz fC = 2 ^ (3 / 12) * fA...) |
|||
| Line 81: | Line 81: | ||
sound(rev,Fs) | sound(rev,Fs) | ||
| + | |||
| + | % The reversed song supposedly contains something like "turn me on dead man," but I found it to be a stretch. | ||
Revision as of 15:30, 18 January 2011
%NUMBER 1
clc clear all
fA = 440; %frequency of an A in Hz fG = 2 ^ (-2 / 12) * fA; %frequency of a G in Hz fBflat = 2 ^ (1 / 12) * fA; %frequency of a Bflat in Hz fC = 2 ^ (3 / 12) * fA; %frequency of a C in Hz fDflat = 2 ^ (4 / 12) * fA; %frequency of a Dflat in Hz
delta = 0.00005; %step size
%PART 1 tempo = 112 / 60;
half = 0 : delta : 2 / tempo; %half note quart = 0 : delta : 1 / tempo; %quarter note eighth = 0 : delta : 1 / (2 * tempo); %eighth note dotquart = 0 : delta : 3 / (2 * tempo); %dotted quarter note
qG = sin(2 * pi * fG .* quart); qBflat = sin(2 * pi * fBflat .* quart); dqC = sin(2 * pi * fC .* dotquart); eDflat = sin(2 * pi * fDflat .* eighth); hC = sin(2 * pi * fC .* half);
song = [qG, qBflat, dqC, qG, qBflat, eDflat, hC, qG, qBflat, dqC, qBflat, qG];
sound(song, 1/delta)
%PART 2 tempo = 2 * 112 / 60;
half = 0 : delta : 2 / tempo; %half note quart = 0 : delta : 1 / tempo; %quarter note eighth = 0 : delta : 1 / (2 * tempo); %eighth note dotquart = 0 : delta : 3 / (2 * tempo); %dotted quarter note
qG = sin(2 * pi * fG .* quart); qBflat = sin(2 * pi * fBflat .* quart); dqC = sin(2 * pi * fC .* dotquart); eDflat = sin(2 * pi * fDflat .* eighth); hC = sin(2 * pi * fC .* half);
song = [qG, qBflat, dqC, qG, qBflat, eDflat, hC, qG, qBflat, dqC, qBflat, qG];
sound(song, 1/delta)
%PART 3
tempo = 112 / 60;
half = 0 : delta : 2 / tempo; %half note quart = 0 : delta : 1 / tempo; %quarter note eighth = 0 : delta : 1 / (2 * tempo); %eighth note dotquart = 0 : delta : 3 / (2 * tempo); %dotted quarter note
qG = sin(2 * 2 * pi * fG .* quart); qBflat = sin(2 * 2 * pi * fBflat .* quart); dqC = sin(2* 2 * pi * fC .* dotquart); eDflat = sin(2 * 2 * pi * fDflat .* eighth); hC = sin(2 * 2 * pi * fC .* half);
song = [qG, qBflat, dqC, qG, qBflat, eDflat, hC, qG, qBflat, dqC, qBflat, qG];
sound(song, 1/delta)
%NUMBER 2
clc clear all
[song,Fs] = wavread('Beatles.wav');
rev = flipud(song);
wavwrite(rev,'rev.wav');
sound(rev,Fs)
% The reversed song supposedly contains something like "turn me on dead man," but I found it to be a stretch.
