Zylinderhuf_Mantel_dM_senkrecht

dM = z · rdφ

φ

r

x

dφ

z

rdφ

a, c, d, b = Cylinder((0, 0, 0), (0, 0, 1), 1)
e = Surface(cos(u), sin(u), abs((h * cos(u))), u, (-(pi / 2)), pi / 2, h, 0, 1)
f(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1 ∧ x ≥ 0, 0]
g(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1 ∧ x ≥ 0, x]
x_{S}: ((4 * 1)) / ((3 * pi))
A: (-1, 0, x_{S})
S_0: (x_{S}, 0, 0)
k = Line(S_0, yAxis)
S_{z}: (x_{S}, 0, x_{S})
l = Line(S_{z}, yAxis)
m = Segment(S_0, S_{z})
n = Surface(0, u, h, u, -1, 1, h, 0, x_{S})
o = CurveCartesian(cos(t), sin(t), x_{S}, t, (-(pi / 2)), pi / 2)
B: (x_{S}, sqrt(1 - x_{S}^(2)), x_{S})
C: (x_{S}, (-sqrt(1 - x_{S}^(2))), x_{S})
p = Segment(B, C)
D = Point(xAxis)
h = Surface(1, (1 * u), (h * cos(u)), u, (-(pi / 2)), pi / 2, h, 0, 1)
i = Segment((1, pi / 2), (1, (-(pi / 2))))
j = CurveCartesian(1, t, cos(t), t, (-(pi / 2)), pi / 2)
r = CurveCartesian(sin(t) - (t * cos(t)), ((cos(t) + (t * sin(t))) * (-1)), t, 0, pi / 2)
q = CurveCartesian(sin(t) - (t * cos(t)), cos(t) + (t * sin(t)), t, 0, pi / 2)
w = 2.5 (slider from 2 to 8, step 0.1)
s = CurveCartesian(sin(t + pi / 2 - pi / w) - (t * cos(t + pi / 2 - pi / w)), cos(t + pi / 2 - pi / w) + (t * sin(t + pi / 2 - pi / w)), t, 0, pi / w)
u = CurveCartesian(sin(t + pi / 2 - pi / w) - (t * cos(t + pi / 2 - pi / w)), ((cos(t + pi / 2 - pi / w) + (t * sin(t + pi / 2 - pi / w))) * (-1)), t, 0, pi / w)
E: (1, (-(pi / w)), 0)
F: (1, (-(pi / w)), cos(pi / w))
t = Segment(E, F)
dy: 0.034
v1, f_1, g_1, h_1, i_1 = Polygon((1, (-(pi / w)) - dy, 0), (1, (-(pi / w)) - dy, cos(pi / w)), (1, (-(pi / w)) + dy, cos(pi / w)), (1, (-(pi / w)) + dy, 0))
G: (cos(pi / w), (-sin(pi / w)), 0)
j_1 = Segment((0, 0, 0), G)
α = Angle(xAxis, j_1)
H: (cos(pi / w), (-sin(pi / w)), cos(pi / w))
I: (cos(pi / w), 0, 0)
k_1 = Segment(G, I)
l_1 = Segment(G, H)
J: (cos(pi / w + (2 * pi / 180)), (-sin(pi / w + (2 * pi / 180))), 0)
K: (cos(pi / w - (2 * pi / 180)), (-sin(pi / w - (2 * pi / 180))), 0)
m_1 = Segment((0, 0, 0), J)
n_1 = Segment((0, 0, 0), K)
L: (cos(pi / w + (2 * pi / 180)), (-sin(pi / w + (2 * pi / 180))), cos(pi / w))
M: (cos(pi / w - (2 * pi / 180)), (-sin(pi / w - (2 * pi / 180))), cos(pi / w))
v2, j_2, l_2, m_2, k_2 = Polygon(J, L, M, K)