ציבה כוון 2

A = (1.7, 4.08)
B = (1, -1)
C = (8, -1)
poly1, c, a, b = Polygon(A, B, C)
D = Point(c)
E = Point(b)
d = Segment(B, E)
e = Segment(D, C)
G = Intersect(d, e)
distanceAE = Distance(A, E)
טקסטAE: "\overline{" + (Name[A]) + (Name[E]) + "} \, = \, " + distanceAE
distanceEC = Distance(E, C)
טקסטEC: "\overline{" + (Name[E]) + (Name[C]) + "} \, = \, " + distanceEC
distanceAD = Distance(A, D)
טקסטAD: "\overline{" + (Name[A]) + (Name[D]) + "} \, = \, " + distanceAD
distanceDB = Distance(D, B)
טקסטDB: "\overline{" + (Name[D]) + (Name[B]) + "} \, = \, " + distanceDB
AE = Distance(A, E)
EC = Distance(E, C)
BD = Distance(B, D)
DA = Distance(D, A)
m: AE / EC * BD / DA
BC = Distance(B, C)
f: BC / (m + 1)
text2: "R=\frac{BC}{m+1}=" + (LaTeX[f]) + ""
g = Circle(C, f)
F = Intersect(g, a)
i = Line(A, F)
J = Intersect(d, i)
text1: "G=" + (LaTeX[G]) + "  
J=" + (LaTeX[J]) + ""