A = (2.76158470543179, 6.664407083398792)
D = (2.761584705431791, -3.939415625716022)
a_1 = Line(A, D)
a = OrthogonalLine(A, a_1)
d = OrthogonalLine(D, a_1)
kcAB = Distance(A, D)
Văn bảnAB: "\overline{" + (Name[A]) + (Name[D]) + "} \, = \, " + kcAB
k: kcAB / 3.0
d_1 = Circle(A, k)
e = Circle(D, k)
B = Intersect(d_1, a_1, 2.0)
C = Intersect(e, a_1, 1.0)
b = OrthogonalLine(B, a_1)
c = OrthogonalLine(C, a_1)
f = Segment(A, B)
g = Segment(B, C)
h = Segment(C, D)
E_1 = Point(a)
F = Point(b)
G = Point(c)
H = Point(d)
α = Angle(B, A, E_1)
β = Angle(F, B, A)
γ = Angle(G, C, B)
δ = Angle(H, D, C)
I = (7.535261349387536, 11.711983206925769)
J = (18.021698567257534, -8.282678801774122)