0001 function AA = pointLineDist(Point, linePoint, lineVec) 0002 0003 x1 = linePoint(1)-Point(1); 0004 y1 = linePoint(2)-Point(2); 0005 t = -1 *(lineVec(2)*y1 + lineVec(1)*x1 )/((lineVec(1)^2) + lineVec(2)^2) 0006 0007 vecDist = [x1+lineVec(1)*t y1+lineVec(2)*t] 0008 0009 AA = norm(vecDist)