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

Revision as of 15: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