%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
