Author: Paulo Correia

\overline{PM}= \overline{AB} \times \overline{CD}

A = (0.483451837399678, -1.3511221844776806)
B = (1.1382167863209152, -1.1669695425935827)
b = Segment(A, B)
G = Midpoint(b)
C = (2.7853598609509023, -0.35874405876893045)
D = (3.6958923680444973, 0.1016375459413145)
c = Segment(D, C)
H = Midpoint(c)
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
comp_2: c / Unidade
texto2: "\overline{CD}=" + comp_2
F = (4.261181813564236, -2.562854441852039)
E = (1.9293562687486467, -3.306626382870805)
d = Line(E, F)
O = Point(d)
J = (5.414650358962744, -3.489338970798595)
l = Ray(O, J)
e = Circle(A, Segment[A, B])
f = Circle(O, Segment[A, B])
P = Intersect(f, d, 2)
g = Segment(O, P)
p = Circle(A_1, C_1)
q = Circle(O, Distance[C_1, A_1])
U = Intersect(q, l, 1)
h = Circle(C, D)
k = Circle(U, Segment[C, D])
Q = Intersect(k, l, 2)
i = Segment(U, Q)
m = Line(U, P)
s = Segment(U, P)
n = Line(Q, m)
M = Intersect(n, d)
r = Segment(Q, M)
j = Segment(P, M)
I = Midpoint(j)
comp_3: j / Unidade
texto3: "\overline{PM}=" + (LaTeX[comp_3]) + ""
texto5: "" + (LaTeX[comp_3]) + " = " + (LaTeX[comp_1]) + "\times" + (LaTeX[comp_2]) + ""

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)