


INPUT function index=find_point(tabx,taby,pointx,pointy)
find_point returns index into tabx,taby, for nearest point in profile (tabx,taby) to (pointx,pointy);

0001 function index=find_point(tabx,taby,pointx,pointy) 0002 %INPUT function index=find_point(tabx,taby,pointx,pointy) 0003 % find_point returns index into tabx,taby, for nearest point in profile (tabx,taby) to (pointx,pointy); 0004 distance=sqrt((tabx-pointx).^2+(taby-pointy).^2); 0005 index=find(distance==min(min(distance)));