function [tau e] = det_poc_sym(signal,prepo)
% =========================================================================
% poèátek OFDM symbolu [van de beck algorithm] vylepšený
    N=2048/prepo;
    M1=160/prepo;
    M2=144/prepo;
    slot=M1+N;
% =========================================================================

for d=1:slot
    P(d)=sum(conj(signal(d:d+M1-1)) .* signal(d+N:d+N+M1-1));
    for k=0:5
        P2(k+1,d)=sum(conj(signal(d+M1+(k*M2)+(k+1)*N:d+M1+(k*M2)+(k+1)*N+(M2-1)))...
                         .*signal(d+M1+(k*M2)+(k+2)*N:d+M1+(k*M2)+(k+2)*N+(M2-1)));
    end 
end
P=P+sum(P2);
for d=1:slot
    E(d)=sum(signal(d:d+(M1-1)).*conj(signal(d:d+(M1-1))));
    for k=0:5
        E2(k+1,d)=sum(signal(d+M1+(k*M2)+(k+1)*N:d+M1+(k*M2)+(k+1)*N+(M2-1)).*...
                 conj(signal(d+M1+(k*M2)+(k+1)*N:d+M1+(k*M2)+(k+1)*N+(M2-1))));
    end
end
    E=E+sum(E2);
    gama=((abs(P))./E).^2;
        figure
        plot((gama))
        title('hledání poèátku symbolu')
        xlabel('posun ve vzorcích')
        ylabel('absolutní hodnota')
%     hold on
        clear E E2 P2 d k M1  slot

% =========================================================================
% hledání posunu signálu
    [a,i]=find(gama==(max((gama))));   % kolikátým prvkem je maximum = i
    tau = i; %posun poèátku symbolu od poèátku pøíjmu signálu
    tau=mod(tau,137);
%     tau = tau1-137;
    clear a i
    e=angle(gama(tau));
end
