Line 4: | Line 4: | ||
A=220; | A=220; | ||
+ | |||
B=247; | B=247; | ||
+ | |||
Db=278; | Db=278; | ||
+ | |||
D=294; | D=294; | ||
+ | |||
E=330; | E=330; | ||
+ | |||
F=349; | F=349; | ||
+ | |||
Gb=370; | Gb=370; | ||
+ | |||
G=392; | G=392; | ||
+ | |||
delta=.0005; | delta=.0005; | ||
stop=.4; | stop=.4; |
Revision as of 11:55, 5 September 2008
%ANANYA PANJA %ECE 301 %Hail Purdue Chorus
A=220;
B=247;
Db=278;
D=294;
E=330;
F=349;
Gb=370;
G=392;
delta=.0005; stop=.4;
Notes=[A,B,Db,D,E,Gb,Gb,G,G,G,D,E,F,Gb]; t=0:delta:stop;
for i=length(Notes)
Hail=sin(2*pi*t*Notes(i)); sound(Hail,1/delta);
end
pause(3); %To play the song twice as fast
for T=1:length(Notes)
t=0:delta:.5*length(Notes(T));%.5 is the scaling factor Hail_1=sin(2*pi*t*Notes(T)); sound(Hail_1,1/delta);
end
pause(3); %To play the song at double frequency
for T=1:length(Notes)
t=0:delta:length(Notes(T)); Hail_2=sin(2*2*pi*t*Notes(T))%2 is the scaling here sound(Hail_2,1/delta);
end