B = (35.43387976857153, -2.922074701594306)
C = (45.95944548352313, -2.8046892103494923)
đa giác1, a, b, c, d, D, A = Polygon(B, C, 4.0)
kcAB = Distance(B, C)
Văn bảnAB: "\overline{" + (Name[B]) + (Name[C]) + "} \, = \, " + kcAB
k: 2.0 / 3.0 * kcAB
e = Circle(A, k)
E = Intersect(e, c)
f = Segment(E, B)