Difference between revisions of "HW1.1 Cory Ocker ECE301Fall2008mboutin" - Rhea

Revision as of 16:26, 3 September 2008

%Cory Ocker (cocker@purdue.edu)
%9/5/08 HW1
%EE301 MWF 4:30
clear;
clc;

%first i went to http://www.hoerl.com/Music/music1_basic.html and read a
%tutorial on music because I don't know diddly about music notes

%define notes using
%http://www.techlib.com/reference/musical_note_frequencies.htm
A =220;
B =246.94;
C =261.64;
Db =277.20;
D =293.68;
E =329.64;
F =349.24;
Gb =370;
G =392;

%define delta
delta =1/20000;

%define beats (can range from 40 bpm to 200 bpm) 
e =.25;
q =.5;
dq =.75;
h =1;
dh =1.5;
w =2;

%timings for notes
lengths =[h,q,q,dq,e,q,q,q,e,e,q,e,e,dh,h,q,q,dq,e,q,q,q,e,e,q,e,e,w,dq,e,...
    q,q,dq,e,q,e,e,q,q,q,q,w,dq,e,q,q,q,q,q,q,dq,e,dq,e,w,w];
%notes for song
notes =[A,B,Db,D,E,Gb,Gb,G,G,G,D,E,F,Gb,Gb,Gb,E,D,E,Gb,Gb,E,B,Db,D,Db,B,E,...
    A,A,B,Db,D,E,Gb,Gb,Gb,G,G,D,E,Gb,B,Db,D,B,A,D,Gb,A,B,Gb,E,D,D];


%regular speed 
for lcv =1:length(notes)
	t =0:delta:lengths(lcv);
	wave =sin(2*pi*t*notes(lcv));
	sound(wave,1/delta);
end


pause(5)

%double speed
for lcv =1:length(notes)
	t =0:delta:1/2*lengths(lcv); 
	wave =sin(2*pi*t*notes(lcv));
	sound(wave,1/delta);
end

pause(5)

%3/4 speed (sounds the best to me after testing)
for lcv =1:length(notes)
	t =0:delta:3/4*lengths(lcv); 
	wave =sin(2*pi*t*notes(lcv));
	sound(wave,1/delta);
end

pause(5)

%doubles the frequencies
for lcv =1:length(notes)
	t =0:delta:lengths(lcv);
	wave =sin(2*2*pi*t*notes(lcv)); 
	sound(wave,1/delta);
end