(→Playing Music - MATLAB Code) |
|||
| (7 intermediate revisions by the same user not shown) | |||
| Line 2: | Line 2: | ||
% Naman Chopra | % Naman Chopra | ||
% ECE 301 | % ECE 301 | ||
| − | |||
| − | |||
%Initializing | %Initializing | ||
clear | clear | ||
clc | clc | ||
| − | |||
%Declarations | %Declarations | ||
delta=0.00005; | delta=0.00005; | ||
| − | finish=0.4 | + | finish=0.4; |
| − | + | ||
A = 220; | A = 220; | ||
B = 246.942; | B = 246.942; | ||
| Line 20: | Line 16: | ||
Gb = 369.994; | Gb = 369.994; | ||
G = 391.995; | G = 391.995; | ||
| − | + | sNotes = [A, B, Db, D, E, Gb, Gb, G, G, G, D, E, F, Gb ]; | |
| − | + | ||
| − | + | ||
| − | + | ||
t = 0:delta:finish; | t = 0:delta:finish; | ||
| − | for | + | for T = 1 : length(sNotes) |
| − | + | notes = sin(2 * pi * t * sNotes(T)); | |
| − | sound( | + | sound(notes, 1/delta); |
end | end | ||
| − | + | wavwrite(notes,1/delta,32,'Naman_hail_purdue1.wav'); | |
pause(1); | pause(1); | ||
| − | + | %Part 2 | |
t = 0:delta:finish/2; | t = 0:delta:finish/2; | ||
| − | for T = 1 : length( | + | for T = 1 : length(sNotes) |
| − | + | notes = sin(2 * pi * t * sNotes(T)); | |
| − | sound( | + | sound(notes, 1/delta); |
end | end | ||
| − | + | wavwrite(notes,1/delta,32,'Naman_hail_purdue2.wav'); | |
pause(1); | pause(1); | ||
| − | + | %Part 3 | |
t = 0:delta:finish; | t = 0:delta:finish; | ||
| − | + | f or T = 1 : length(sNotes) | |
| − | + | notes = sin(4 * pi * t * sNotes(T)); | |
| − | sound( | + | sound(notes, 1/delta); |
end | end | ||
| + | wavwrite(notes,1/delta,32,'Naman_hail_purdue3.wav'); | ||
| + | |||
| + | |||
| + | ==Files== | ||
| + | [[Media: Naman_hail_purdue1_ECE301Fall2008mboutin.wav]], | ||
| + | [[Media: Naman_hail_purdue2_ECE301Fall2008mboutin.wav]], | ||
| + | [[Media: Naman_hail_purdue3_ECE301Fall2008mboutin.wav]] | ||
| + | |||
| + | These files play the last note. I know why that is happening. I just don't know how to get the full thing. | ||
Latest revision as of 12:24, 5 September 2008
Playing Music - MATLAB Code
% Naman Chopra % ECE 301 %Initializing clear clc %Declarations delta=0.00005; finish=0.4; A = 220; B = 246.942; Db = 277.183; D = 293.665; E = 329.628; F = 349.228; Gb = 369.994; G = 391.995; sNotes = [A, B, Db, D, E, Gb, Gb, G, G, G, D, E, F, Gb ]; t = 0:delta:finish; for T = 1 : length(sNotes) notes = sin(2 * pi * t * sNotes(T)); sound(notes, 1/delta); end wavwrite(notes,1/delta,32,'Naman_hail_purdue1.wav'); pause(1); %Part 2 t = 0:delta:finish/2; for T = 1 : length(sNotes) notes = sin(2 * pi * t * sNotes(T)); sound(notes, 1/delta); end wavwrite(notes,1/delta,32,'Naman_hail_purdue2.wav'); pause(1); %Part 3 t = 0:delta:finish; f or T = 1 : length(sNotes) notes = sin(4 * pi * t * sNotes(T)); sound(notes, 1/delta); end wavwrite(notes,1/delta,32,'Naman_hail_purdue3.wav');
Files
Media: Naman_hail_purdue1_ECE301Fall2008mboutin.wav, Media: Naman_hail_purdue2_ECE301Fall2008mboutin.wav, Media: Naman_hail_purdue3_ECE301Fall2008mboutin.wav
These files play the last note. I know why that is happening. I just don't know how to get the full thing.
