Zylinderhuf_Schichten_25_10_Pill_mitPrisma

x_0

h

r

\frac{h}{r}\cdot x_0

A_S(z)

dz

\sqrt{r^{2}-x^{2}}

b: 1
t = 20 (slider from 0 to 30, step 1)
dt: b / t
i = Segment((1 - b, 0, 0), (1, 0, 1))
e = CurveCartesian(t, sqrt(1 - t^(2)), (1 / b * (t - 1 + b)), t, 1 - b, 1)
b_{1} = CurveCartesian(t, (-sqrt(1 - t^(2))), (1 / b * (t - 1 + b)), t, 1 - b, 1)
k = CircleArc((0, 0, 0), (1 - b, (-sqrt(1 - (1 - b)^(2))), 0), (1 - b, sqrt(1 - (1 - b)^(2)), (0 * dt / b)), xOyPlane)
mw_{x}: 0.469991
v1, j, l, n, p = Polygon((mw_{x}, sqrt(1 - mw_{x}^(2)), mw_{x} - dt), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), mw_{x} - dt), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), mw_{x} + dt), (mw_{x}, sqrt(1 - mw_{x}^(2)), mw_{x} + dt))
s = Semicircle((0, -1, 0), (0, 1, 0), xOyPlane)
h = Segment((1 - b, sqrt(1 - (1 - b)^(2)), 0), (1 - b, (-sqrt(1 - (1 - b)^(2))), 0))
c = Surface(cos(u), sin(u), (h * cos(u)), u, (-(pi / 2)), pi / 2, h, 0, 1)
A: (0.469991, 0, 0)
B: (mw_{x}, 0, mw_{x})
d = Segment(A, B)
f = Segment((1, 0, 0), (1, 0, 1))
g = Segment(B, (1, 0, z(B)))
f_1 = Segment(A, (x(A), sqrt(1 - (x(A))^(2)), 0))
g_1 = Segment((0, 0, 0), (x(A), sqrt(1 - (x(A))^(2)), 0))
o: 0.4699
m = Surface(cos(u), sin(u), v, u, (-acosd(mw_{x})), acosd(mw_{x}), v, z(B) - dt, z(B) + dt)
c_1 = CircleArc((0, 0, z(B) + dt), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), z(B) + dt), (mw_{x}, sqrt(1 - mw_{x}^(2)), z(B) + dt), xOyPlane)
q = CircleArc((0, 0, 1), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), 1), (mw_{x}, sqrt(1 - mw_{x}^(2)), 1), xOyPlane)
r = CircleArc((0, 0, 0), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), 0), (mw_{x}, sqrt(1 - mw_{x}^(2)), 0), xOyPlane)
v2, a, h_1, i_1, j_1 = Polygon((mw_{x}, sqrt(1 - mw_{x}^(2)), 0), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), 0), (mw_{x}, (-sqrt(1 - mw_{x}^(2))), 1), (mw_{x}, sqrt(1 - mw_{x}^(2)), 1))