(d=((\[LeftBracketingBar]((Subscript[x, 1])-(Subscript[x, 0]))((Subscript[y, P])-(Subscript[y, 0]))-((Subscript[x, P])-(Subscript[x, 0]))((Subscript[y, 1])-(Subscript[y, 0]))\[RightBracketingBar])/(Sqrt[((((Subscript[x, 1])-(Subscript[x, 0])))^2)+((((Subscript[y, 1])-(Subscript[y, 0])))^2)]))≤(Subscript[d, max]).(1))