A = (-1.74, 4.74)
B = (5.82, 3.84)
C = (1.2, -1.22)
poligon1, c, a, b = Polygon(A, B, C)
D = Midpoint(A, B)
E = Midpoint(C, B)
F = Midpoint(A, C)
d = Segment(B, F)
e = Segment(A, E)
G = Intersect(d, e)
távolságFG = Distance(F, G)
SzövegFG: "\left| " + (Name[F]) + (Name[G]) + "\right| = " + távolságFG
távolságGB = Distance(G, B)
SzövegGB: "\left| " + (Name[G]) + (Name[B]) + "\right| = " + távolságGB
f = Segment(C, D)
H = Intersect(f, e)