geo-013-2d-tres-lugares-geometricos
Author: Epsiclas - Alberto Rodríguez Santos

Epsiclas

A = (-2.4, 1.88)
B = (3.7032509417948924, 1.8970928665618825)
a = LineBisector(A, B)
C = Point(a)
distanciaAC = Distance(A, C)
TextoAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + distanciaAC
distanciaCB = Distance(C, B)
TextoCB: "\overline{" + (Name[C]) + (Name[B]) + "} \, = \, " + distanciaCB
D = (9.726711330707758, 2.0449078454309095)
E = (12.054797247894939, 6.516310956218976)
b = Ray(D, E)
F = (7.213856689934293, 6.848894658674286)
c = Ray(D, F)
d = AngularBisector(F, D, E)
e = Segment(A, B)
H = (19.29773121247727, 5.740282317156584)
I = (16.00884793264142, 3.5230576341211792)
f = Circle(H, I)
J = Point(f)
distanciaJH = Distance(J, H)
TextoJH: "\overline{" + (Name[J]) + (Name[H]) + "} \, = \, " + distanciaJH
g = Segment(C, B)
h = Segment(C, A)
i = Segment(J, H)
G = Point(d)
j = Ray(D, G)
K = Point(j)
k = OrthogonalLine(K, b)
l = OrthogonalLine(K, c)
L = Intersect(l, c)
M = Intersect(k, b)
m = Segment(K, M)
n = Segment(K, L)
distanciaKM = Distance(K, M)
TextoKM: "\overline{" + (Name[K]) + (Name[M]) + "} \, = \, " + distanciaKM
distanciaKL = Distance(K, L)
TextoKL: "\overline{" + (Name[K]) + (Name[L]) + "} \, = \, " + distanciaKL