B = (0.02972222482412465, -0.06374435540077304)
C = (1.5634183207873493, -0.06896100878840306)
đa giác1, a, a_1, b, A = Polygon(B, C, 3.0)
c = OrthogonalLine(A, a)
H = Intersect(c, a)
d = Segment(A, H)