Graph einblenden

(A)

j = Segment((0, 0), (0, 8))
q(x) = If[-5 ≤ x ≤ 5, 0]
E0 = Point(q)
p: y = 8
E3 = Point(p)
E2 = (-1.7904421527660843, 5.1212364486906194)
E1 = (-3.7175429731941283, 2.7123604231555647)
B: (y(E1), (-x(E1)))
C: (y(E2), (-x(E2)))
A: (y(E0), (-x(E0)))
D: (y(E3), (-x(E3)))
f = Polynomial({A, B, C, D})
a = CurveCartesian(f(t), t, t, 0, 8)
b = CurveCartesian((-f(t)), t, t, 0, 8)
h(x) = (Integral[(f(x))^(2)] * pi)
g(x) = If[0 ≤ x ≤ 8, h(x)]
i = Segment(E3, ((-x(E3)), y(E3)))
V1 = CurveCartesian(t, h(t), t, 0, 8)
w: x - y = 0
H1 = Mirror(V1, w)
VListe = Sequence((i, 0), i, 0, 400, 20)
Vaktuell = Point(VListe)
gl1: x = x(Vaktuell)
E, E_{1} = Intersect(gl1, H1)
W: (0, y(E))
l1 = Sequence((f(t), t), t, 0, y(W), 0.1)
Vieleck1 = Polygon({l1} + {W})
l2 = Sequence(((-f(t)), t), t, 0, y(W), 0.1)
l3 = Append(l1, W)
l4 = Append(l3, (0, 0))
L4 = NaN
Vieleck2 = Polygon(l4)
l5 = Append(l2, W)
l6 = Append(l5, (0, 0))
Vieleck3 = Polygon(l6)
k = Segment(((-f(y(W))), y(W)), (f(y(W)), y(W)))
c = Integral(h, 0, y(W))
l = Segment(((-x(E0)), 0), (x(E0), 0))
h0: y(W)
V0: g(h0)
P: (V0, h0)
d = true
gO: 10
gU: -1
gL: -20
gR: 220
gO2: 8