Radio

A = (-3, 2)
B = (3, 1)
C = (1, 3)
polígono1, c, a, b = Polygon(A, B, C)
O = Circuncentro(polígono1)
d = Circunscrita(polígono1)
r = false
α = Angle(B, A, C)
A' = Midpoint(C, B)
e = Ray(O, A')
F = Intersect(d, e)
f = CircumcircleArc(C, F, B)
g = OrthogonalLine(C, c)
E = Intersect(g, c)
polígono2: {Polygon[A, E, C]}
polígono3: {Polygon[O, A', C]}
β = Angle(A', O, C)
h = Segment(C, E)
polígono4: {Polygon[B, O, C]}

Tool: Circunferencia circunscrita (command Circunscrita)
Triángulo
Input: polígono1
Output: d

A = (-3, 2)
B = (3, 1)
C = (1, 3)
polígono1, c, a, b = Polygon(A, B, C)
d = Circle(Intersect[a, b], Intersect[a, c], Intersect[c, b])

Tool: Circuncentro
Triángulo
Input: polígono1
Output: O

A = (-3, 2)
B = (3, 1)
C = (1, 3)
polígono1, c, a, b = Polygon(A, B, C)
d = LineBisector(b)
e = LineBisector(a)
O = Intersect(e, d)

Tool: Mediatrices
Triángulo
Input: polígono1
Output: d, e, f

A = (-2.5, 1.08)
B = (-0.26, 3.62)
C = (4, 1.22)
polígono1, c, a, b = Polygon(A, B, C)
d = LineBisector(b)
e = LineBisector(a)
f = LineBisector(c)