三维平方和演示

GeoGebra 命令及参数

1. Join(Join[Sequence[Sequence[Sequence[(a, b, c), a, 1, n + 1 - c], b, 1, n + 1 - c], c, 1, n]]) → l1
2. Zip(Sphere[A, 0.5], A, l1) → l2
3. Translate(l2, Vector[(1, 1, 0), A]) → l2'
4. OrthogonalLine(A, xOyPlane) → f
5. Rotate(l2', 90°, f) → l2''
6. OrthogonalLine(B, xAxis, xOyPlane) → g
7. Rotate(l2'', 90°, g) → l2'''
8. Translate(l2, Vector[(1, 1, 0), C]) → l2'_1
9. OrthogonalLine(C, xOyPlane) → h
10. Rotate(l2'_1, (-(90°)), h) → l3
11. OrthogonalLine(D, Plane[(0, 0, 0), (0, 1, 0), (0, 0, 1)]) → i
12. Rotate(l3, 90°, i) → l3'
13. Translate(Line[(0, 0, n + 1), (1, 1, n + 1)], Vector[(0.5, 0, 0)]) → j
14. Mirror(l3', z = n + 1) → l3''
15. Translate(Rotate[l2''', π, j], Vector[E]) → l4
16. Line(((n + 2) / 2, (n + 1) / 2, 0), zAxis) → k
17. Rotate(l3'', π, k) → l5
18. If(spread < 1, spread^(2) + 0.1, spread) → sp
19. Rotate(Mirror[l2, z = n + 1], π, k) → l7
20. Rotate(Mirror[l2''', z = n + 1], π, k) → l6