| Line 1: | Line 1: | ||
| − | %NUMBER 1 | + | %NUMBER 1 |
| − | clc | + | clc clear all |
| − | clear all | + | |
| − | fA = 440; %frequency of an A in Hz | + | 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 |
| − | 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 | + | delta = 0.00005; %step size |
| − | %PART 1 | + | %PART 1 tempo = 112 / 60; |
| − | 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) | ||
| + | |||
| + | wavwrite(song, 1/delta, 'ECE301hw1part1'); | ||
| − | + | [[Media:ECE301hw1part1.wav]] | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | %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) | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | wavwrite(song,1/delta, 'ECE301hw1part2'); | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | ||
| − | + | [[Media:ECE301hw1part2.wav]] | |
| − | |||
| − | %PART 3 | + | %PART 3 |
tempo = 112 / 60; | tempo = 112 / 60; | ||
| − | half = 0 : delta : 2 / tempo; %half note | + | 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 |
| − | 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); | + | 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); |
| − | 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]; | + | song = [qG, qBflat, dqC, qG, qBflat, eDflat, hC, qG, qBflat, dqC, qBflat, qG]; |
| − | sound(song, 1/delta) | + | sound(song, 1/delta) |
| + | wavwrite(song,1/delta, 'ECE301hw1part3'); | ||
| + | [[Media:ECE301hw1part3.wav]] | ||
| − | %NUMBER 2 | + | <br> %NUMBER 2 |
| − | clc | + | clc clear all |
| − | clear all | + | |
| − | [song,Fs] = wavread('Beatles.wav'); | + | [song,Fs] = wavread('Beatles.wav'); |
| − | rev = flipud(song); | + | rev = flipud(song); |
| − | wavwrite(rev,'rev.wav'); | + | wavwrite(rev,'rev.wav'); |
| − | 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. | % The reversed song supposedly contains something like "turn me on dead man," but I found it to be a stretch. | ||
Revision as of 16:53, 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)
wavwrite(song, 1/delta, 'ECE301hw1part1');
%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)
wavwrite(song,1/delta, 'ECE301hw1part2');
%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)
wavwrite(song,1/delta, 'ECE301hw1part3');
%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.
