funktion1

f(x) = 1 / 3 x⁵ - 1 / 50 x⁴ + 1 / 12 x³ - 1 / 10 x² - 18 x + 1
C = Point(f)
t = Tangent(C, f)
m = Slope(t)
N: (x(C), 0)
Q: N + (0, m)
f'(x) = (x - 2.6500000000000004)² / 6 - (x - 2.6500000000000004) / 2 + 2.691666666666667
T1: "m = " + m
A = Point(Circle[N, 0])
r = Segment(A, Q)