Querschnittsfläche anzeigen

Verschiebe den Punkt P ...

e_x = (-0.4, -0.4)
e_y = (1, 0)
e_z = (0, 1)
a = Ray((0.0, 0.0), Vector[5.0 * e_x])
b = Ray((0.0, 0.0), e_y)
c = Ray((0.0, 0.0), e_z)
A = Point(b)
E = Point(a)
B = Point(b)
d = Line(E, b)
F = Point(d)
H: E + Length[Vector[E, F]] * e_z
G: H + Vector[E, F]
C: B + Length[Vector[B, A]] * e_z
D: A + Vector[B, C]
Vieleck1, a_1, b_1, c_1, d_1 = Polygon(E, F, B, A)
Vieleck2, a_2, b_2, f, e = Polygon(E, F, G, H)
Vieleck3, c_2, g, h, d_2 = Polygon(B, C, D, A)
Vieleck4, b_3, c_3, g_1, f_1 = Polygon(F, B, C, G)
Vieleck5, e_1, f_2, g_2, h_1 = Polygon(H, G, C, D)
Vieleck6, a_3, d_3, h_2, e_2 = Polygon(E, A, D, H)
m = false
P = Point(b_1)
i = Line(P, c)
I = Intersect(i, g_1)
j = Line(I, b)
J = Intersect(h_1, h_2)
K = Intersect(j, h_2)
L: K + Vector[I, P]
Vieleck7, p, i_1, k, l_1 = Polygon(P, I, K, L)
Text1: "Inhalt der Querschnittsfläche Q = " + Vieleck7
gy(x) = -x(A) / sqrt((x(E) / 0.4)^(2.0) + (y(E) / 0.4)^(2.0)) * x + x(A)
M: (sqrt((x(E) / 0.4)^(2.0) + (y(E) / 0.4)^(2.0)), 0.0)
N: M + (0.0, Length[Vector[E, F]])
hy(x) = -(x(B) - Length[Vector[E, F]]) / sqrt((x(E) / 0.4)^(2.0) + (y(E) / 0.4)^(2.0)) * x + x(B)
l(x) = (gy(x) - hy(x))^(2.0)
n: l(1.0)
o: l(3.0)
r: l(2.7)
s = Integral(l(x), 0.0, sqrt((x(E) / 0.4)^(2.0) + (y(E) / 0.4)^(2.0)))
Text3: "Volumen V = " + s