function y=note(n,delay,Fs,wavform) t=linspace(0,delay,round(Fs*delay)); if n==1 f=261.63;end if n==1.5 f=277.18;end if n==2 f=293.66;end if n==2.5 f=311.13;end if n==3 f=329.63;end if n==4 f=349.23;end if n==4.5 f=369.99;end if n==5 f=392;end if n==5.5 f=415.30;end if n==6 f=440;end if n==6.5 f=466.16;end if n==7 f=493.88;end if n==11 f=523.25;end if wavform==1 y=sin(2*pi*f*t); elseif wavform==2 y=square(2*pi*f*t); elseif wavform==3 y=sawtooth(2*pi*f*t); end Fs=8192;
n(1,:)=[3 5 6 3 5 2 3 4.5 6 11 6 5 1 3 2];
n(2,:)=[0.5 0.5 3 0.5 0.5 3 0.5 0.5 0.5 1 0.5 0.5 1 0.5 3]; ys=0;
for k=1:length(n(1,:));
y=note(n(1,k),0.7*n(2,k),Fs,3); t=linspace(0,0.7*n(2,k),length(y));
envelope=(t+0.2).*exp(-3*(t+0.2)).*cos(2*t); y=y.*envelope; ys=cat(2,ys,y); end
soundsc(ys,Fs);