(6,9,13)-búsqueda de M:
 -88.32390183322191 

A = (13.890460616408529, 8.038685989661271)
B = (6.150480537186635, -0.1763567370211811)
C = (18.563430559980517, -0.7029909281897053)
polígono1, c, a, b = Polygon(A, B, C)
d = AngularBisector(C, B, A)
e = OrthogonalLine(C, c)
A_1 = Intersect(d, e)
M_a = Midpoint(a)
f = Line(M_a, A_1)
g = Line(B, A)
A_b = Intersect(f, g)
h = AngularBisector(A, C, B)
i = OrthogonalLine(B, b)
A_2 = Intersect(i, h)
j = Line(M_a, A_2)
k = Line(A, C)
A_c = Intersect(j, k)
B_a, B_c = AGBICH(B, C, A)
C_b, C_a = AGBICH(C, A, B)
l = LineBisector(A_c, C_a)
m = LineBisector(B_a, A_b)
n = LineBisector(C_b, B_c)
M = Intersect(n, m)
p = Segment(B, A_c)
q = Segment(A_b, C)
r = Segment(B, A_2)
s = Segment(B, A_1)
t = Segment(C, A_2)
c_1 = Segment(A_b, M_a)
b_1 = Segment(A_c, M_a)
a_1 = Segment(C, A_1)

Tool: AGBICH
Dar ABC, determina Ab y Ac
Input: A, B, C
Output: A_c, A_b

polígono1, c, a, b = Polygon(A, B, C)
d = AngularBisector(C, B, A)
e = OrthogonalLine(C, c)
A_1 = Intersect(d, e)
D = Midpoint(a)
f = Line(D, A_1)
g = Line(B, A)
A_b = Intersect(f, g)
h = AngularBisector(A, C, B)
i = OrthogonalLine(B, b)
A_2 = Intersect(i, h)
j = Line(D, A_2)
k = Line(A, C)
A_c = Intersect(j, k)

Tool: AGBICH_M
Dar ABC determina el punto de corte de las mediatrices
Input: A, B, C
Output: M

polígono1, c, a, b = Polygon(A, B, C)
d = AngularBisector(C, B, A)
e = OrthogonalLine(C, c)
A_1 = Intersect(d, e)
D = Midpoint(a)
f = Line(D, A_1)
g = Line(B, A)
A_b = Intersect(f, g)
B_a, B_c = AGBICH(B, C, A)
C_b, C_a = AGBICH(C, A, B)
m = LineBisector(B_a, A_b)
n = LineBisector(C_b, B_c)
M = Intersect(n, m)