f'

f(x)

Aufklappen / Zuklappen

Umgebung

f''

f

f'

f''

x

f'(x)

f''(x)

k = 2 (slider from 1 to 2, step 0.1)
h0(x) = ((-(3 / 224)) * x^(5)) + (5 / 28 * x^(3))
v0: ((k - 1) * 4.5)
rahmen = 4 (slider from -5 to 5, step 0.1)
O0: (0 | v0)
xWerte = Sequence(i / k, i, (-rahmen), rahmen, 1)
a = 1 (slider from 0 to 3, step 1)
x0: xWerte((2 * a) + 1)
x1: xWerte((2 * a) + 3)
v1 = 0 (slider from -5 to 5, step 0.1)
v2: (-v0)
hoehe: rahmen / k
O2: (0 | v2)
ex = 0.5 (slider from -5 to 5, step 0.1)
ey = 0.5 (slider from -5 to 5, step 0.1)
gx2(x) = v2
gx0_{1}(x) = v0
f = 1 (slider from -5 to 5, step 0.1)
c = 1 (slider from -4 to 4, step 1)
breite: hoehe
Rahmen0 = Polygon({O0 + (breite | (-hoehe)), O0 + (breite | hoehe), O0 + ((-breite) | hoehe), O0 + ((-breite) | (-hoehe))})
O1: (0 | v1)
Rahmen1 = Polygon({O1 + (breite | (-hoehe)), O1 + (breite | hoehe), O1 + ((-breite) | hoehe), O1 + ((-breite) | (-hoehe))})
Rahmen2 = Polygon({O2 + (breite | (-hoehe)), O2 + (breite | hoehe), O2 + ((-breite) | hoehe), O2 + ((-breite) | (-hoehe))})
h0h(x) = h0(x) + c
ht0(x) = (1 / k * h0h((k * x))) + v0
hta0(x) = If[(-breite) ≤ x ≤ breite, If[v0 - hoehe ≤ ht0(x) ≤ v0 + hoehe, ht0(x)]]
fta0(x) = If[x0 ≤ x ≤ x1, hta0(x)]
yWerte = Zip(fta0(i), i, xWerte)
punkteGraph = Sequence((xWerte(i) | yWerte(i)), i, 1, Length[xWerte])
u = 4 (slider from 0 to 4, step 0.1)
xmin = Max({(-breite), x0 - u})
xmax = Min({breite, x0 + u})
y0 = Vector(O0 + (0 | (-hoehe)), O0 + (0 | hoehe))
xAchse1 = Vector(O1 + ((-breite) | 0), O1 + (breite | 0))
y1 = Vector(O1 + (0 | (-hoehe)), O1 + (0 | hoehe))
xAchse2 = Vector(O2 + ((-breite) | 0), O2 + (breite | 0))
y2 = Vector(O2 + (0 | (-hoehe)), O2 + (0 | hoehe))
EinheitenXAchse0 = Sequence((i / k | 0 + v0), i, (-rahmen) + 1, rahmen - 1)
EinheitenYAchse0 = Sequence((0 | i / k + v0), i, (-rahmen) + 1, rahmen - 1)
EinheitenXAchse1 = Sequence((i / k | 0 + v1), i, (-rahmen) + 1, rahmen - 1)
EinheitenYAchse1 = Sequence((0 | i / k + v1), i, (-rahmen) + 1, rahmen - 1)
EinheitenXAchse2 = Sequence((i / k | 0 + v2), i, (-rahmen) + 1, rahmen - 1)
EinheitenYAchse2 = Sequence((0 | i / k + v2), i, (-rahmen) + 1, rahmen - 1)
b = true
xAchse0 = Vector(O0 + ((-breite) | 0), O0 + (breite | 0))
W2: (0 | c)
W3: (2 | 1 - c)
W1: (-2 | -1 + c)
W = 1 (slider from -5 to 5, step 0.1)
W1t: (x(W1) / k | hta0(x(W1) / k))
W2t: (x(W2) / k | hta0(x(W2) / k))
W3t: (x(W3) / k | hta0(x(W3) / k))
h1(x) = h0'(x)
h2(x) = h0''(x)
ht1(x) = (1 / k * h1((k * x))) + v1
ht2(x) = (1 / k * h2((k * x))) + v2
hta1(x) = If[(-breite) ≤ x ≤ breite, If[v1 - hoehe ≤ ht1(x) ≤ v1 + hoehe, ht1(x)]]
hta2(x) = If[(-breite) ≤ x ≤ breite, If[v2 - hoehe ≤ ht2(x) ≤ v2 + hoehe, ht2(x)]]
gr1: x = x1
gl1: x = x0
fta1(x) = If[x0 ≤ x ≤ x1, hta1(x)]
fta2(x) = If[x0 ≤ x ≤ x1, hta2(x)]