f(x) =

f(x) = (1 / 5 * x^(3)) + 1
Eingabefeld1 = Textfield(f)
A = Point(f)
d = 3.5 (slider from 1 to 100, step 0.5)
L, g, h, i, j = Polygon(A + (-1 / d, -1 / d), A + (1 / d, -1 / d), A + (1 / d, 1 / d), A + (-1 / d, 1 / d))
k = Tangent(A, f)
B = (-2, 2)
C = (-2, -2)
D = (2, -2)
E = (2, 2)
v1, b, c, d_1, e = Polygon(B, C, D, E)
F = Intersect(xAxis, yAxis)
a: x(A)
w(x) = If[-2 ≤ x ≤ 2, (d * (f(x / d + a) - f(a)))]
t(x) = If[-2 ≤ x ≤ 2, (w'(0) * x)]