h

$xPx$

h(x) =

xMin

xMax

dn

a

dx = 1 (slider from -5 to 5)
f(x) = x + 1
xmin: 0
xmax: 12
W = Sequence(f(i), i, xmin, xmax, dx)
W0 = Remove(W, {Infinity})
W2 = RemoveUndefined(W0)
a = 1
WT = Sequence({i, f(i)}, i, xmin, xmax, dx)
ymin0 = Min(W)
ymax0 = Max(W2)
Px: (a, 0)
Py: (0, f(a))
Text3: "" + (x(Px)) + ""
Text4: "" + (y(Py)) + ""
pos = If(a < 0, ((xmax - xmin) / 15, 0), Vector[(-((xmin - xmax) / 100, 0))])
WText = Insert({{"x", "h(x)"}}, WT, 1)
Text2 = TableText(WText, "v|_ll")
ma = 1 (slider from -5 to 5)
Eingabefeld1 = Textfield(f)
Eingabefeld2 = Textfield(xmin)
Eingabefeld3 = Textfield(xmax)
Eingabefeld4 = Textfield(dx)
W1 = RemoveUndefined(W0)
xmin0 = If(xmin ≥ 0, -1, xmin)
xmax0 = If(xmax ≤ 0, 1, xmax + 1)
ymax = If(ymax0 < 1, 1, ymax0 + ymax0 / 10)
Setze = 1 (slider from -5 to 5)
ymin = If(ymin0 > -1, (-(ymax0 / 10)), ymin0 + ymin0 / 10)