Author: Paulo Correia

\overline{QP}= \sqrt{\overline{AB}} 

A = (0.483451837399678, -1.3511221844776806)
B = (2.099902805048982, -0.8907405797674357)
b = Segment(A, B)
G = Midpoint(b)
A_1 = Intersect(xAxis, yAxis)
B_1 = Point(xAxis)
a = Ray(A_1, B_1)
C_1 = Point(a)
Unidade = Segment(A_1, C_1)
comp_1: b / Unidade
texto1: "\overline{AB}=" + comp_1
F = (4.261181813564236, -2.562854441852039)
E = (1.9293562687486467, -3.306626382870805)
d_1 = Line(E, F)
O = Point(d_1)
e = Circle(A, Segment[A, B])
f = Circle(O, Segment[A, B])
P = Intersect(f, d_1, 2)
g = Segment(O, P)
p = Circle(A_1, C_1)
q = Circle(P, Distance[C_1, A_1])
K, U = Intersect(q, d_1)
C = Midpoint(O, U)
r = Circle(C, U)
t = OrthogonalLine(P, d_1)
Q = Intersect(r, t, 2)
d = Segment(Q, P)
comp_2: Distance[Q, U] / Unidade
c: d / Unidade
texto3: "" + (LaTeX[c]) + "=\sqrt{" + (LaTeX[comp_1]) + "}"
texto2: "$ \overline{QP} =" + (LaTeX[c]) + "$"

Tool: Trissecção
Seleccione 2 pontos (extremos do segmento de recta)
Input: H, I
Output: M, N

g = Segment(H, I)
h = Circle(H, I)
k = Circle(I, H)
J = Intersect(h, k, 2)
p = Circle(J, H)
i = Ray(I, J)
K = Intersect(p, i, 2)
L = Intersect(h, k, 1)
j = Segment(K, L)
M = Intersect(g, j)
q = Circle(M, H)
N = Intersect(q, g, 2)