x

$xPx$

f(x) =

xMin =

xMax =

dx =

b = 5 (slider from xmin to xmax, step dx)
xmax: 10
xmin: -10
f(x) = (-0.002 * x^(4)) + (0.1 * x^(2)) + 10
dx: 2.5
W = Sequence(f(i), i, xmin, xmax, dx)
H = Sequence(If[Element[W, i] ∈ {Infinity, -Infinity}, NaN, Element[W, i]], i, 1, Length[W])
W2 = RemoveUndefined(H)
ymin0 = Min(W2)
ymax0 = Max(W2)
bMax = Max({abs(ymax0), abs(ymin0)})
a: b
WT = Sequence({i, If[f(i) ∈ {Infinity, -Infinity}, NaN, f(i)]}, i, xmin, xmax, dx)
Px: (a | 0)
P: (a | f(a))
Py: (0 | f(a))
g = Segment(Px, P)
u = Vector(P, Py)
Text3: "" + (x(Px)) + ""
Text4: "" + (y(Py)) + ""
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: {}
fb = If(f(b) ∈ {Infinity, -Infinity}, NaN, f(b))
Q: ((-a) | f((-a)))
Qx: ((-a) | 0)
Qy: (0 | f((-a)))
h = Segment(Qx, Q)
v = Vector(Q, Qy)
i = Segment(Q, P)
fmb = If(f((-b)) ∈ {Infinity, -Infinity}, NaN, f((-b)))
Text1: "f(" + (LaTeX[b]) + ") = " + (LaTeX[fb]) + ""
Text5: "f(" + (LaTeX[(-b)]) + ") = " + (LaTeX[fmb]) + ""