吃豆人饿了！

GeoGebra 命令及参数

1. Random(-5, 5) → a
2. Sequence(i, i, a + 1, 5, 1) → l3
3. Sequence(i, i, -5, a - 1, 1) → l2
4. Union(l2, l3) → l4
5. Vector((xc, yc, zc)) → u
6. Random(-5, 5) → c
7. RandomElement(l4) → b
8. CurveCartesian(x(A) - sin(t), y(A) + cos(t), z(A), t, 0, π) → g
9. Translate(A, u) → A'
10. Vector(A, A') → v
11. Rotate(A - (0, 1.5, 0), If[yc ≥ 0, α, (2 * π) - α], A, Line[A, A + (0, 0, 1)]) → D
12. Rotate(A + (0, 1.5, 0), If[yc ≥ 0, α, (2 * π) - α], A, Line[A, A + (0, 0, 1)]) → C
13. Rotate(g, If[yc ≥ 0, α, (2 * π) - α], A, Line[A, A + (0, 0, 1)]) → g'
14. Rotate(g', If[zc ≥ 0, β, (2 * π) - β], A, If[zc ≥ 0, Line[C, D], Line[D, C]]) → g''
15. Random(-5, 5) → d
16. Random(-5, 5) → e
17. Random(-5, 5) → f
18. Line(C, D) → j
19. Surface(g'', (3 * π / 4) + m, Line[C, D]) → k
20. Dilate(A, If[0 < l ≤ 1, 1 - l, 0], A') → A'_1
21. Surface(g'', (3 * π / 4) + m, Line[D, C]) → i
22. Vector(A, A'_1) → w
23. Translate(i, w) → i'
24. Translate(k, w) → k'
25. Sequence(i, i, -5, 5, 1) → l1