(→Playing Music - MATLAB Code) |
|||
| Line 7: | Line 7: | ||
%Declarations | %Declarations | ||
delta=0.00005; | delta=0.00005; | ||
| − | finish=0.4 | + | finish=0.4; |
durations = [ 3, 2, 2, 3, 1, 2, 2, 2, 1, 1, 2, 1, 1, 3]; | durations = [ 3, 2, 2, 3, 1, 2, 2, 2, 1, 1, 2, 1, 1, 3]; | ||
A = 220; | A = 220; | ||
| Line 18: | Line 18: | ||
G = 391.995; | G = 391.995; | ||
%Hail Hail to Old Purdue | %Hail Hail to Old Purdue | ||
| − | + | 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 | %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 | %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'); | ||
Revision as of 11:41, 5 September 2008
Playing Music - MATLAB Code
% Naman Chopra % ECE 301 %Initializing clear clc %Declarations delta=0.00005; finish=0.4; durations = [ 3, 2, 2, 3, 1, 2, 2, 2, 1, 1, 2, 1, 1, 3]; A = 220; B = 246.942; Db = 277.183; D = 293.665; E = 329.628; F = 349.228; Gb = 369.994; G = 391.995; %Hail Hail to Old Purdue 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');
