ft=['babystar2.wav';'corn2.wav';'babeq2.wav'];%['babystar2.wav';'corn2.wav';'babeq2.wav';'ebi2.wav';'potato2.wav'];%
fnt=size(ft)(1,1);
Yt=zeros(d,1);
nt=100;
for i=1:fnt
  for j=10:nt+10
    Y=log10(abs(fft(wavread(ft(i,:),[j*c+1 (j+1)*c]),d*2)));
    Yt=[Yt,Y([1:d],1)];
   end
end
Yt = Yt(:,[2:nt*fnt+1]);

res = sim( net, Yt);
a=0;
for i=1:fnt
  for j=1+nt*(i-1):nt*i;
    [x,ix] = max(res(:,j));
    if(i==ix)
      a++;
    end
  end
end
a/(nt*fnt)

