$\circ$

$\vartriangleright$

x

I_0

l

v

h

V(t)

z(t)

t

t

B3

B1

B6

f

f1

f3

f2

f4

f5

B2

B5

f6

B4

f7

B4

f8

B1

F9

F10

Nächste Bestandsentwicklung

a

L

G

a =

t = -2 (slider from -2 to b, step dt)
a = 0 (slider from 0 to 10, step 1)
b: 10
f(t) = If[0 ≤ t < 5, (20 * t), If[5 ≤ t ≤ 10, (-20 * (t - 5)) + 100]]
tListe = Sequence(i, i, a, b, 1)
TPunkte = Zip((i, 0), i, tListe)
T = Point(TPunkte)
ta: x(T)
V0 = 0
F(t) = If[0 ≤ t < 5, (10 * t^(2)), If[5 ≤ t ≤ 10, (-10 * (t - 5)^(2)) + (100 * t)] - 250]
I(t) = F(t) - F(a)
F0(t) = If[a ≤ t ≤ b, I(t)]
V: F(ta) - F(0)
S1, k, l, m, n = Polygon((-1.5, -500), (-1, -500), (-1, F0(ta)), (-1.5, F0(ta)))
S2, k1, k2, k3, k4 = Polygon((-1.5, -500), (-1, -500), (-01, 500), (-1.5, 500))
gL: -2.5
gR = 11 (slider from -5 to 20, step 0.1)
gO: 600
gU: -600
gO2: 125
faktor = 0 (slider from -5 to 5, step 0.1)
VListe: {}
dt = 0.1 (slider from -5 to 5, step 0.1)
zaListe: {}
gU2: -125
Vmax: 1000
Vmin: 0
zMin: -100
zMax: 100
Z0 = Point(Segment[(0, zMin), (0, zMax)])
Text5: "" + (y(Z0)) + ""
Va: (0, V)
F1(t) = If[0 ≤ t < 5, (100 * t) - (10 * t^(2)), If[5 ≤ t ≤ 10, (10 * (t - 5)^(2)) + 250]]
F2(t) = If[0 ≤ t ≤ 10, (100 * t) - (10 * t^(2))]
F3(t) = If[0 ≤ t ≤ 4, (80 * t) - (20 * t^(2)), If[4 < t ≤ 7, (25 * (t - 4)^(2)) - (80 * (t - 4)), If[7 < t ≤ 10, (70 * (t - 7)) - 15]]]
f0(t) = If[a ≤ t ≤ b, f(t)]
f1(t) = If[0 ≤ t < 5, (20 * t), If[5 ≤ t ≤ 10, (-20 * (t - 5)) + 100]]
f2(t) = If[0 ≤ t ≤ 10, 100 - (10 * t)]
za: f(t)
f4(t) = If[0 ≤ t < 5, -100 + (20 * t), If[5 ≤ t ≤ 10, 0]]
f5(t) = If[0 ≤ t ≤ 10, -100 + (20 * t)]
F5(t) = If[0 ≤ t ≤ 4, (-100 * t), If[4 < t ≤ 7, (25 * (t - 4)^(2)) - (100 * (t - 4)) - 400, If[7 < t ≤ 10, (50 * (t - 7)) - 475]]]
ft = Segment((t, 0), (t, f(t)))
zaListeDiskret = Sequence((i, f(i)), i, a, ta, 1)
c_{1} = 0
F4(t) = If[0 ≤ t < 5, (-100 * t) + (10 * t^(2)), If[5 ≤ t ≤ 10, -250]]
f6(t) = If[0 ≤ t < 5, 100 - (20 * t), If[5 ≤ t ≤ 10, (20 * (t - 5))]]
F6(t) = If[0 ≤ t < 5, (10 * t^(2)), If[5 ≤ t ≤ 10, (-10 * (t - 5)^(2)) + (100 * t)] - 250]
f7(t) = If[0 ≤ t ≤ 10, 100 - (20 * t)]
F7(t) = If[0 ≤ t ≤ 4, (100 * t) - (25 * t^(2)), If[4 < t ≤ 7, (-100 * (t - 4)), If[7 < t ≤ 10, (25 * (t - 7)^(2)) - (100 * (t - 7)) - 300]]]
f8(t) = If[0 ≤ t < 5, (-20 * t), If[5 ≤ t ≤ 10, -100]]
F8(t) = If[0 ≤ t ≤ 10, (100 * t) - (10 * t^(2))]
F9(t) = F4(t) - 500
F10(t) = F5(t) + 500
index = 2
Text6: "B" + index + ""
VListeDiskret = Sequence((i, F0(i)), i, a, ta, 1)
A: (a, 0)
c = false
sIt = Segment((ta, 0), (ta, F0(ta)))
d = false
It = Integral(f, a, ta)
e: (t * 4)
Eingabefeld1 = Textfield(a)
FListe: {F2, F4, F1, F7, F5, F3, F6, F9}
I2 = Integral(f, Max[a, 4], Min[7, ta])
I3 = Integral(f, Max[a, 7], ta)
I1 = Integral(f, a, Min[4, ta])
nullmarke = Segment((-2, 0), (-0.5, 0))
S3, g, h, i, j = Polygon((-1.5, 0), (-1, 0), (-1, F0(ta)), (-1.5, F0(ta)))
f3(t) = If[0 ≤ t < 5, -100 + (20 * t), If[5 ≤ t ≤ 10, (-20 * (t - 5))]]
Idt = Integral(f, ta, ta + 1)
Vt = Vector((ta + 1, F0(ta)), (ta + 1, F0(ta + 1)))