疯狂滑梯!

GeoGebra 命令及参数

1. FitPoly(l1, n) → g
2. CurveCartesian((R * cos(t)), (R * sin(t)), g(t), t, 0, (2 * π)) → e
3. CurveCartesian((r * cos(t)), (r * sin(t)), g(t), t, 0, (2 * π)) → i
4. Surface(((R + (r * cos(v))) * cos(u)), ((R + (r * cos(v))) * sin(u)), (r * sin(v)) + g(u), u, 0, (2 * π), v, 0, (2 * π)) → j
5. Vector((0, 0, g((2 * π)) - g(0))) → u
6. Translate(j, u) → j'
7. Translate(j, Vector[(2 * u)]) → j'_{1}