function?islr=islrfunc（x）

l=length（x）;
a=find（x==max（x））;
i=1;
for?k=a-1:-1:2
????if（x（k）-x（k-1）<0&&x（k）-x（k+1）<0）
????????lindian（i）=k;
????????i=i+1;
????end
end
lindian1=max（lindian）;

lindian=0;
i=1;
for?k=a+1:l-1
????i