f(x)=

xMin

xMax

dx

xmax: 9
xmin: 0
f(x) = ((-(1 / 6)) * x^(6)) + (104 / 25 * x^(5)) - (17301 / 400 * x^(4)) + (359671 / 1500 * x^(3)) - (1868821 / 2500 * x^(2)) + (776622 / 625 * x) - 521
dx = 1 (slider from -5 to 5)
W = Sequence(f(i), i, xmin, xmax, dx)
ymin0 = Min(W)
W0 = Remove(W, {Infinity})
W2 = RemoveUndefined(W0)
ymax0 = Max(W2)
bMax = Max({abs(ymax0), abs(ymin0)})
a = 1.2087286527514232
WT = Sequence({i, f(i)}, i, xmin, xmax, dx)
Py: (0, f(a))
pos = If(a < 0, ((xmax - xmin) / 15, 0), Vector[(-((xmin - xmax) / 100, 0))])
WText = Insert({{"x", "f(x)"}}, WT, 1)
Text2 = TableText(WText, "v|_ll")
ma = 1 (slider from -5 to 5)
ymax = If(ymax0 < 0, bMax / 10, ymax0 + bMax / 10)
ymin = If(ymin0 > 0, ((-bMax)) / 10, ymin0 - bMax / 10)
Eingabefeld1 = Textfield(f)
Eingabefeld2 = Textfield(xmin)
Eingabefeld3 = Textfield(xmax)
Eingabefeld4 = Textfield(dx)
W1 = RemoveUndefined(W0)