螺旋螺纹球面二等分

GeoGebra 命令及参数

1. Surface((cos(t) * cos(u)), (cos(t) * sin(u)), sin(t), t, 0, (2 * π), u, 0, π) → a
2. CurveCartesian((r(t) * cos((π * t))), (r(t) * sin((π * t))), t, t, -1, 1) → c
3. Rotate(c, π, zAxis) → d
4. Surface((u * x(c(t))) + ((1 - u) * x(d(t))), (u * y(c(t))) + ((1 - u) * y(d(t))), (u * z(c(t))) + ((1 - u) * z(d(t))), t, -1, 1, u, 0, 1) → b
5. Surface(c, π, zAxis) → e
6. Translate(Rotate[b, (π * n)], Vector[(0, 0, n)]) → f
7. Translate(Rotate[c, (π * n)], Vector[(0, 0, n)]) → g
8. Translate(Rotate[d, (π * n)], Vector[(0, 0, n)]) → h
9. Translate(Rotate[Surface[d, π, zAxis], (π * n)], Vector[(0, 0, n)]) → i