function d = kok3(textfile)
    maxs = plotqrs(textfile,200);
    maxs=maxs*0.005;
    figure
    plot(maxs,0,'bd');


    for i=1:1:4

        if  (i<4)
            d = maxs(i+1)-maxs(i);
        else
        end

    end
    d = diff(maxs)
    return;


end