%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