Start

Graph einblenden

f(x) = If[x ≥ 0 ∧ x ≤ 4, (0.125 * x^(2)), If[4 < x ≤ 12, 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
f10: f(10)
a = false