f(x) = x * (8 - x) * (5 - x)
f'(x) = f'(x)
A = Point({2, 0})
B = Point({6.666666666666667, f'(20 / 3)})
D: (2, f(2))
u = Vector((1, f'(2)))
a = Line(D, u)
c = 2.9 (slider from -5 to 5, step 0.01)
b = Line(Point[{c, f(c)}], Vector[Point[{1, f'(c)}]])
C = Point({c, f(c)})
E = Point({c, 0})
d = Segment(C, E)