W

Re

Im

Im

Re

m = 88 (slider from 1 to 100, step 1)
n = 1
b = 0.15 (slider from -1 to 1, step 0.001)
c = Surface((r * cos(t)), (r * sin(t)), ((b * r) * t), t, 0, (2 * π), r, 0, 5)
O: (0, 0, 0)
A: (5, 0, 0)
t: (m * π / 24)
B: (5, 0, (((5 * 4) * b) * π))
d1 = Polygon({A, B, O})
e = Surface((r * cos(t)), (r * sin(t)), ((b * r) * t), t, (2 * π), ((2 * 2) * π), r, 0, 5)
u = Vector((-6, 0, -3), (6, 0, -3))
g = CurveCartesian((5 * cos(t)), (5 * sin(t)), -3, t, 0, (4 * π))
w: t / 2
W_1: ((5 * cos(w)), (5 * sin(w)), -3)
W: ((5 * cos(w)), (5 * sin(w)), -3)
d = CurveCartesian((5 * cos((2 * t))), (5 * sin((2 * t))), ((5 * b) * sin(t)), t, 0, (2 * π))
f = Surface((r * cos(t)), (r * sin(t)), -3, t, 0, (2 * π), r, 0, 5)
a = Surface((r * cos((2 * t))), (r * sin((2 * t))), ((b * r) * sin(t)), t, 0, π, r, 0, 5)
h = Surface((r * cos((2 * t))), (r * sin((2 * t))), ((b * r) * sin(t)), t, π, (2 * π), r, 0, 5)
Q: ((5 * cos(t)), (5 * sin(t)), ((5 * b) * sin(t / 2)))
v = Vector((0, -6, -3), (0, 6.5, -3))