绕卷磁带的切割问题

GeoGebra 命令及参数

1. Circle((0, 0), r) → c
2. Sequence(CurveCartesian[((r + (k * t)) * cos(s)), ((r + (k * t)) * sin(s)), s, 0, maxs], k, 0, maxk) → rulle1
3. Sequence(CurveCartesian[((r + (k * t)) * cos(maxs)) - (s * sin(maxs)), ((r + (k * t)) * sin(maxs)) + (s * cos(maxs)), s, 0, ((-r) * tan(maxs))], k, 0, maxk) → rulle2
4. Sequence(CurveCartesian[r + t + ((k * t) * cos(s)), ((k * t) * sin(s)), s, maxs, 6.28319], k, 0, maxk) → rulle3
5. Textfield(t) → tekstfelt1
6. Textfield(r) → tekstfelt2
7. Textfield(maxk) → tekstfelt3
8. Sequence(Mod[((-maxs) * ((k * r) + ((k * (k + 1) / 2) * t))) - ((k - 1) * straight) - (((k - 1) * k / 2) * curved), d], k, 1, maxk) → mods
9. Textfield(d) → tekstfelt4
10. CurveCartesian(cos(s), sin(s), s, 0, 6.283185307179586) → e
11. Sequence(Mod[((-maxs) * (((k - 1) * r) + (((k - 1) * k / 2) * t))) - ((k - 1) * straight) - (((k - 1) * k / 2) * curved), d], k, 1, maxk) → mods3
12. Sequence(Sequence[((r + (k * t)) * e(s)), s, Element[mods3, k] / (r + (k * t)), maxs, d / (r + (k * t))], k, 1, maxk) → cuts
13. Sequence(Mod[((-maxs) * ((k * r) + ((k * (k + 1) / 2) * t))) - (k * straight) - (((k - 1) * k / 2) * curved), d], k, 1, maxk) → mods2
14. Sequence(Sequence[((r + (k * t)) * e(maxs)) + (s * e(maxs + π / 2)), s, Element[mods, k], straight, d], k, 1, maxk) → cuts2
15. Sequence(Sequence[(r + t, 0) + ((k * t) * e(s)), s, maxs + Element[mods2, k] / ((k * t)), 6.283185307179586, d / ((k * t))], k, 1, maxk) → cuts3