(New page: %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=...) |
|||
| Line 2: | Line 2: | ||
%ECE 301 | %ECE 301 | ||
%Hail Purdue Chorus | %Hail Purdue Chorus | ||
| + | |||
A=220; | A=220; | ||
B=247; | B=247; | ||
Revision as of 11:54, 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
