function [P1]=Remov_locmax(P1,Width_Lane)
b=P1(2:end)-P1(1:end-1)< Width_Lane/2;

for i=1:size(b,1)
    if b(i)==1
        P1(i+1)=(P1(i)+P1(i+1))/2;
    end
end
%............
for i=1:size(b,1)
    if b(i)==1
        P1(i)=[];
    end
end
%............