A = (0.1791038980458944, 7.9947759841733435)
D = (0.29648938929070784, -4.017672619879232)
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_1 = Point(b)
G_1 = Point(c)
H_1 = Point(d)
α = Angle(B, A, E_1)
β = Angle(F_1, B, A)
γ = Angle(G_1, C, B)
δ = Angle(H_1, D, C)
I = (3.1137411791662295, 11.046798756538498)
J = (13.600178397036222, -8.947863252161392)
i = Line(I, J)
E = Intersect(a, i)
F = Intersect(b, i)
G = Intersect(c, i)
H = Intersect(d, i)