function F0=f_okam(F0,i,delkaS,handles)

[M,N]=size(F0);

% % provedu samotne vykresleni

index=find(F0(1,:)>ones(1,N));
plot(handles.axes1,F0(2,index)/60,F0(1,index),'*k','HitTest','off');
set(handles.axes1,'YLim',[0 500])
d=diff(F0(1,index));

save('F0','F0')





% dodělat hymnu detekce konce hymny ˇ+ zacatek 
% energii vykreslit 
% detekci velké změny zakladního tonu diff
% pripravit se pro rozpoznani komentatora












% % zde bude provedena detekce základního tonu a vyhodnocení průměrného
% % základního tonu.
% % definice zakladnich parametru
% NN=512;
% prekryv=NN/2;     %definuje se v poctech vzorku
% 
% % segmentace signalu
% if(prekryv==NN)
%     f=enframe(y,hanning(NN))';
% else
%     f=enframe(y,hanning(NN),prekryv)';       %vstup je signal velikost okna je 2048 a 1024 je prekryv
% end
% % detekce zakladniho tonu reci
% [R0 N]=size(f);
% 
% zn=zeros(1,N);
% F0=zeros(1,N);
% % definice "lagu" tj zakladni perioda ve vzorcich
% 
% Lmin=fix(fs/600);
% Lmax=fix(fs/80);
% 
% for i=1:N
%     R=xcorr(f(:,i));
%     R=R(R0+Lmin:R0+Lmax);
%     Rk=find(R==max(R))+Lmin;
%     F0(i)=fs/Rk;
% end
% % konec urceni zakladniho tonu reci
% % % % % % % % % % % % % % % % % % % % % % % % % % % 
% % stanoveni zmelosti a neznelosti hlasek a energie
% % 1.stanovení energie
% 
% E=sum(f.^2)/R0;
% m=(mean(E)+median(E))/2;  %aritmeticky prumer stredni hodnoty medianu pro dany usek zapasu
% indexy=find(E>ones(1,N)*m);
% zn(indexy)=1;
% F0=F0.*zn;
% 
% 
