function d = kok3(textfile)
    maxs = plotqrs(textfile,200);
    maxs=maxs*0.005;
    figure
    plot(maxs,0,'bd');
       xlabel('sec');
    d = 0;
    for i=1:1:length(maxs)

        if  (i<length(maxs))
            d = maxs(i+1)-maxs(i)


        end

    end

    return;

end