Ümberringjoon

A = (-1.5, 0.54)
B = (2.72, 0.4)
C = (0.74, 4.1)
t1, c, a, b = Polygon(A, B, C)
f = OrthogonalLine(C, c)
g = OrthogonalLine(B, b)
h = OrthogonalLine(A, a)
D = Intersect(f, g)
E = Intersect(g, b)
i = Segment(B, E)
F = Intersect(f, c)
j = Segment(C, F)
G = Intersect(h, a)
k = Segment(A, G)
d = Circle(D, A)
R = Segment(D, A)
Midpoint(C, B)
Midpoint(B, A)
kaugusAC = Distance(A, C)
Midpoint(A, C)
TekstAC: Name[A] + (Name[C]) + " = " + kaugusAC
kaugusAB = Distance(A, B)
Midpoint(A, B)
TekstAB: Name[A] + (Name[B]) + " = " + kaugusAB
kaugusBC = Distance(B, C)
Midpoint(B, C)
TekstBC: Name[B] + (Name[C]) + " = " + kaugusBC
Punktd_{1} = PointIn(d)
tekst1: "S_{ABC}=" + (LaTeX[t1]) + ""
Punktd = PointIn(d)
Punktt1 = PointIn(t1)
AB = Distance(A, B)
AC = Distance(A, C)
BC = Distance(B, C)
kaugusAD = Distance(A, D)
Midpoint(A, D)
AD = Distance(A, D)
TekstAD: "R= " + kaugusAD + ""
tekst2: "\frac{AB*BC*AC}{4R}=" + (LaTeX[t1]) + ""