ZKeil_allgemein_Mantel_dm_waagrecht_v2_ohneLATEX

z=\frac{h}{b}\cdot (x+b-r)

h

b

(b-r)

r

x_{0}

dz

2s

dM=2s\cdot dz

cos φ = x_0/r
φ = arccos(x_0/r)
s = r · φ

c = Surface(cos(t), sin(t), (h * (1 + cos(t)) / 2), t, (-pi), pi, h, 0, 1)
dz: 0.06
b = 1.4 (slider from 0 to 2, step 0.05)
D: (1 - b + b / 2, (-sqrt(1 - (1 - b + b / 2)^(2))), 1 / 2 + dz)
E: (1 - b + b / 2, sqrt(1 - (1 - b + b / 2)^(2)), 1 / 2 + dz)
C: (1 - b + b / 2, (-sqrt(1 - (1 - b + b / 2)^(2))), 1 / 2 - dz)
B: (1 - b + b / 2, sqrt(1 - (1 - b + b / 2)^(2)), 1 / 2 - dz)
d_2, p, q, r, s = Polygon(B, C, D, E)
c_1 = Circle((0, 0, 0), 1, xOyPlane)
l(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1 ∧ -1 ≤ x ≤ 1, 1 / 2 + x / 2]
f_2 = Segment((1, 0, 0), (1, 0, 1))
f_1 = Segment((1, 0, 1), (-1, 0, 0))
a_2 = CurveCartesian(t, (-sqrt(1 - t^(2))), (1 / b * (t - 1 + b)), t, 1 - b, 1)
a_1 = CurveCartesian(t, sqrt(1 - t^(2)), (1 / b * (t - 1 + b)), t, 1 - b, 1)
e = CircumcircleArc((1 - b, sqrt(1 - (1 - b)^(2)), 0), (1, 0, 0), (1 - b, (-sqrt(1 - (1 - b)^(2))), 0))
f(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1, 0]
h = Segment((1, 0, 0), (1 - b, 0, 0))
i = Segment((1, 0, 1), (1 - b, 0, 0))
j = Segment((1 - b, sqrt(1 - (1 - b)^(2)), 0), (1 - b, (-sqrt(1 - (1 - b)^(2))), 0))
d = Surface(cos(u), sin(u), v, u, (-acosd(1 - b + b / 2)), acosd(1 - b + b / 2), v, 1 / 2 - dz, 1 / 2 + dz)
d_1 = CircumcircleArc(D, (1, 0, 1 / 2 + dz), E)
k = Segment((1 - b + b / 2, 0, 0), (1 - b + b / 2, 0, 1 / 2))
u = Surface(cos(t), sin(t), ((h * 1 / b) * (cos(t) - 1 + b)), t, (-acosd(1 - b)), acosd(1 - b), h, 0, 1)
A: (1 - b + b / 2, sqrt(1 - (1 - b + b / 2)^(2)), 1 / 2)
F: (1 - b + b / 2, (-sqrt(1 - (1 - b + b / 2)^(2))), 1 / 2)
G: (1 - b + b / 2, sqrt(1 - (1 - b + b / 2)^(2)), 0)
H: (1 - b + b / 2, (-sqrt(1 - (1 - b + b / 2)^(2))), 0)
n = Segment(G, H)
t = Segment(H, F)
a = Segment(G, A)
I: (0, 0, z(A))
g_1 = Segment(I, (1 - b + b / 2, 0, z(A)))
h_1 = Segment(I, F)
i_1 = Segment(I, A)
φ = Angle((1 - b + b / 2, 0, z(A)), I, A)
g = CurveCartesian(cos(t), sin(t), 0, t, acosd((-(b - 1))), pi + acosd(b - 1))
j_1 = Segment(I, (1, 0, z(I)))
m = Segment(A, (1 - b + b / 2, 0, z(A)))