A = (-4.38, -3.46)
C = (1.5, 1.82)
B = (3.38, -3.74)
d1, c, a, b = Polygon(A, C, B)
f = OrthogonalLine(C, b)
D = Intersect(b, f)
h_c = Segment(C, D)
M_1 = Midpoint(A, B)
d = Circle(M_1, A)
M, N = Intersect(d, f)
h = OrthogonalLine(B, c)
F, G = Intersect(d, h)
M_2 = Midpoint(A, C)
e = Circle(M_2, C)
h_b = Segment(G, B)
Q, P = Intersect(e, h)
S = Intersect(h_c, h_b)
abstandSG = Distance(S, G)
TextSG: Name[S] + (Name[G]) + " = " + abstandSG
abstandSC = Distance(S, C)
TextSC: Name[S] + (Name[C]) + " = " + abstandSC
abstandSD = Distance(S, D)
TextSD: Name[S] + (Name[D]) + " = " + abstandSD
abstandSB = Distance(S, B)
TextSB: Name[S] + (Name[B]) + " = " + abstandSB
SG = Distance(S, G)
SB = Distance(S, B)
SC = Distance(S, C)
SD = Distance(S, D)
Text1: "SG*SB=" + abstandSG + "*" + abstandSB + "=" + ((SG * SB)) + "
SC*SD=" + abstandSC + "*" + abstandSD + "=" + ((SC * SD)) + ""
g = Circle(G, D, B)