Start

f(x) = If[x ≥ 0 ∧ x ≤ 12, (89 / 24903680 * x^(8)) - (41 / 245760 * x^(7)) + (7079 / 2334720 * x^(6)) - (103 / 3840 * x^(5)) + (11469 / 97280 * x^(4)) - (13421 / 54720 * x^(3)) + (31 / 95 * x^(2))]
gL: -3
gR: 13
gU: -2
gO: 7
PosB: (-2.5, 0)
bB: 1
hB: 6
Balken = Polygon({PosB, PosB + (bB, 0), PosB + (bB, hB), PosB + (0, hB)})
t = 0 (slider from 0 to 12, step 0.1)
P: (t, f(t))
DBalken = Polygon({PosB, PosB + (bB, 0), PosB + (bB, f(t)), PosB + (0, f(t))})
zustand = 1