ger(x) = 4
kk = 3.75 (slider from -5 to 20, step 0.01)
fk(x) = x^(3) - (kk * x^(2)) + 4
ganz = IntegralBetween(ger, fk, 0, kk)
C, D, E = Root(fk)
tief = Integral(fk, x(D), x(E))
A, B = Intersect(fk, a)
Text1: "B=" + B + ""
bilanz: ganz + tief
F: (kk, bilanz / 10)
hut = Integral(fk, x(C), x(D))
H: (kk, hut + tief)