冯·诺依曼的象

GeoGebra 命令及参数

1. Sum(Sequence[(Element[Ax, k] * cos((k * x))) + (Element[Bx, k] * sin((k * x))), k, 1, n]) → fx
2. Sum(Sequence[(Element[Ay, k] * cos((k * x))) + (Element[By, k] * sin((k * x))), k, 1, n]) → fy
3. CurveCartesian(fy(t), (-fx(t)), t, 0, (2 * π)) → elephant
4. Min(x(param)) → c
5. Max(x(param)) → d
6. Vector((c, 0), (d, 0)) → u
7. Line(A1 - (0, 10, 0), xAxis) → f
8. Rotate(elephant, 90°, f) → elephant'
9. Rotate(W, 90°, f) → W'
10. CurveCartesian(x(A) + fy(t), y(A), z(A) - fx(t), t, 0, (2 * π)) → e
11. Sequence((x(A) + fy(t), y(A), z(A) - fx(t)), t, 0, (2 * π), (2 * π / 50)) → l1
12. CurveCartesian(x(A) + fy(t), y(A) - 20, z(A) - fx(t), t, 0, (2 * π)) → h
13. Sequence((x(A) + fy(t), y(A) - 20, z(A) - fx(t)), t, 0, (2 * π), (2 * π / 50)) → l2
14. Surface((v * e(t)) + ((1 - v) * h(t)), v, 0, 1, t, 0, (2 * π)) → i
15. CurveCartesian(x(A) + (0.1 * cos(i)), y(A), z(A) + (0.1 * sin(i)), i, 0, (2 * π)) → g
16. Surface((v * e(t)) + ((1 - v) * g(t)), v, 0, 1, t, 0, (2 * π)) → j
17. Translate(j, Vector[A, A + (0, -20, 0)]) → j'
18. Translate(W', Vector[A, A + (0, -18.5, 0)]) → W''
19. CurveCartesian(fy(t), (-fx(t)), t, 0, (2 * π)) → k
20. CircumcircleArc(B, C, D) → p
21. Midpoint(W'', W') → E
22. CircumcircleArc(F, G, H) → q