A = (8, 5)
B = (14, 5)
a = Line(A, B)
m = 2
n = 7
C = Point(Circle[A, (n / (m + n) * Distance[A, B])])
b = Segment(A, C)
D = Point(Circle[A, (n / (n - m) * Distance[A, B])])
c = Segment(A, D)
E = Midpoint(C, D)
d = Circle(E, C)
F = Point(d)
e = Segment(A, F)
f = Segment(B, F)
r: e / f