A = (-5.8667709955318035, -11.012570861182072)
B = (9.382690801628572, 3.441202556425475)
C = (16.790355053248675, -9.001397397767436)
a = Segment(A, B)
b = Segment(B, C)
c = Segment(A, C)
D = Midpoint(A, C)
E = Midpoint(A, B)
F = Midpoint(B, C)
Mediatrice1 = OrthogonalLine(E, a)
Mediatrice2 = OrthogonalLine(D, c)
Mediatrice3 = OrthogonalLine(F, b)
O = Intersect(Mediatrice1, Mediatrice2)
g = Circle(O, A)
Mediane1 = Line(B, D)
Mediane2 = Line(A, F)
Mediane3 = Line(C, E)
G = Intersect(Mediane1, Mediane2)
Hauteur1 = OrthogonalLine(B, c)
Hauteur2 = OrthogonalLine(C, a)
Hauteur3 = OrthogonalLine(A, b)
H = Intersect(Hauteur2, Hauteur1)
n = Line(C, a)
p = Line(A, b)
q = Line(B, c)
I = Intersect(Mediane3, p)
J = Intersect(Mediane1, n)
K = Intersect(Mediane2, n)
distanceAB = Distance(A, B)
Midpoint(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceCJ = Distance(C, J)
Midpoint(C, J)
TexteCJ: Name[C] + (Name[J]) + " = " + distanceCJ
distanceKC = Distance(K, C)
Midpoint(K, C)
TexteKC: Name[K] + (Name[C]) + " = " + distanceKC
distanceBI = Distance(B, I)
Midpoint(B, I)
TexteBI: Name[B] + (Name[I]) + " = " + distanceBI
Midpoint(B, A)
Midpoint(A, C)

Tool: Création des médiatrices (command Créationdesmédiatrices)
Input: A, B, C
Output: g, a, b, c, D, E, F, O, d, f, e

a = Segment(A, B)
b = Segment(B, C)
c = Segment(A, C)
D = Midpoint(A, C)
E = Midpoint(A, B)
F = Midpoint(B, C)
d = OrthogonalLine(E, a)
e = OrthogonalLine(D, c)
f = OrthogonalLine(F, b)
O = Intersect(d, e)
g = Circle(O, A)

Tool: Création circocentre (command Créationcircocentre)
Input: A, B, C
Output: O

a = Segment(A, B)
c = Segment(A, C)
D = Midpoint(A, C)
E = Midpoint(A, B)
d = OrthogonalLine(E, a)
e = OrthogonalLine(D, c)
O = Intersect(d, e)

Tool: Création du barycentre (command Créationdubarycentre)
Input: A, B, C
Output: G

D = Midpoint(A, C)
F = Midpoint(B, C)
h = Line(B, D)
i = Line(A, F)
G = Intersect(h, i)