Ver medidas

A = (0.22, 2.1)
B = (0.26, -1.2)
a = Segment(A, B)
b = OrthogonalLine(B, a)
c = Circle(B, A)
C = Intersect(c, b, 2)
d = Circle(C, B)
D = Intersect(c, d, 1)
E = Intersect(c, d, 2)
e = Line(D, E)
F = Intersect(b, e)
f = Circle(F, A)
G = Intersect(f, b, 2)
g = OrthogonalLine(G, b)
h = OrthogonalLine(A, a)
H = Intersect(g, h)
poly1, b_1, g_1, h_1, a_1 = Polygon(B, G, H, A)
distanciaBG = Distance(B, G)
TextoBG: "\overline{" + (Name[B]) + (Name[G]) + "} \, = \, " + distanciaBG
distanciaGH = Distance(G, H)
TextoGH: "\overline{" + (Name[G]) + (Name[H]) + "} \, = \, " + distanciaGH
text1: " \frac{ \overline{" + (Name[B]) + (Name[G]) + "} \ }{ \overline{" + (Name[G]) + (Name[H]) + " \ "
text2: " = " + (b_1 / g_1)
i = true
I = (16.02, -5.2)