getal1 = 8 (slider from 0.1 to 10, step 0.1)
getal2 = 7 (slider from 0 to f, step 0.1)
getal3 = 3 (slider from 0.1 to f, step 0.1)
A = (2, 7)
B = Point(Circle[A, getal1])
f = Segment(A, B)
C = (2, 5)
D = Point(Circle[C, getal2])
g = Segment(C, D)
c = Circle(B, getal3)
E = Intersect(c, f, 1)
d = Circle(D, (g * Distance[B, E] / f))
F = Intersect(d, g, 1)
e = Circle(C, Distance[E, B] / (Distance[A, E] / Distance[C, F]))
h = Ray(D, C)
H, G = Intersect(e, h)
i = Segment(A, E)
j = Segment(E, B)
k = Segment(F, C)
l = Segment(D, F)
m = Segment(G, C)