A = (10, 15)
B = (10, 5)
C = (26, 5)
a = Segment(A, B)
b = Segment(B, C)
c = OrthogonalLine(A, a)
d = OrthogonalLine(C, b)
D = Intersect(c, d)
e = Segment(A, D)
f = Segment(D, C)
g = 4 (slider from 0 to 5, step 0.1)
h = Circle(A, g)
k = Circle(D, g)
p = Circle(C, g)
q = Circle(B, g)
E, E1 = Intersect(h, e)
F, F1 = Intersect(h, a)
G, G1 = Intersect(q, a)
H, H1 = Intersect(q, b)
I, I1 = Intersect(p, b)
J, J1 = Intersect(p, f)
K, K1 = Intersect(k, f)
L, L1 = Intersect(k, e)
i = OrthogonalLine(E, e)
j = OrthogonalLine(L, e)
l = OrthogonalLine(K, f)
m = OrthogonalLine(J, f)
Z = Intersect(i, l)
N = Intersect(l, j)
O = Intersect(m, j)
P = Intersect(m, i)
n = Segment(F, Z)
r = Segment(Z, E)
s = Segment(L, N)
t = Segment(N, K)
a1 = Segment(J, O)
b1 = Segment(O, I)
c1 = Segment(H, P)
d1 = Segment(P, G)
Q = (20, 20)
e1 = Line(Q, e)
distanceEL = Distance(E, L)
TexteEL: "\overline{" + (Name[E]) + (Name[L]) + "} \, = \, " + distanceEL
f1 = Circle(Q, distanceEL)
R, S = Intersect(f1, e1)
T = (30, 30)
g1 = Ray(Q, T)
h1 = Segment(Q, S)
distanceJK = Distance(J, K)
TexteJK: "\overline{" + (Name[J]) + (Name[K]) + "} \, = \, " + distanceJK
k1 = Circle(Q, distanceJK / sqrt(2))
U, D1 = Intersect(k1, g1)
i1 = Line(U, h1)
j1 = Line(S, g1)
p1 = Circle(Q, g)
l1 = OrthogonalLine(Q, h1)
V, W = Intersect(p1, l1)
m1 = Segment(Q, W)
n1 = OrthogonalLine(W, m1)
q1 = OrthogonalLine(S, h1)
r1 = Segment(Q, U)
s1 = Line(W, r1)
t1 = Line(S, r1)
a2 = Line(U, h1)
b2 = Line(U, m1)
Z_1 = Intersect(b2, s1)
A1 = Intersect(a2, t1)
B1 = Intersect(q1, n1)
c2 = Line(Z_1, n1)
d2 = Line(A1, q1)
C1 = Intersect(c2, d2)
e2 = Segment(W, Z_1)
f2 = Segment(W, B1)
g2 = Segment(B1, S)
h2 = Segment(S, A1)
i2 = Segment(A1, C1)
j2 = Segment(Z_1, C1)
k2 = Segment(C1, B1)
l2 = Segment(Z_1, U)
m2 = Segment(U, A1)
M: (g, g distanceEL distanceJK / 10)
n2 = Segment(E, L)
p2 = Segment(K, J)
q2 = Segment(I, H)
r2 = Segment(G, F)
v = Function((4 x^(3) - 52 x^(2) + 160 x) / 10, 0, 5)