b

a

l

l

A=b·a

A=l·l=l^2

A = (2.6596884971067, 1.832642907360336)
B = (9.858866475582694, 1.8326429073603374)
a = Segment(A, B)
C = Point(a)
b = OrthogonalLine(B, a)
c = Circle(B, C)
D = Intersect(c, b, 2)
d = OrthogonalLine(D, b)
e = Segment(A, C)
E = Point(e)
f = OrthogonalLine(E, e)
F = Intersect(d, f)
polígono1, e_1, b_1, d_1, f_1 = Polygon(E, B, D, F)
dis = Distance(E, C)