(New page: Try #1) |
|||
| (2 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | + | % 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. | ||
Latest revision as of 12:49, 19 January 2011
% 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.
