立方体一半：四个双曲抛物面拼合的中点曲面

GeoGebra 命令及参数

1. Cube(A, B, C) → b, D, caraCDHG, caraEFGH, aristaAD, aristaAB, aristaBC, aristaCD, aristaAE, aristaDH, aristaEH, aristaEF, E, aristaBF, aristaFG, aristaCG, aristaGH, F, G, H, caraABCD, caraADHE, caraABFE, caraBCGF
2. Midpoint(aristaEH) → I
3. Midpoint(aristaAE) → J
4. Midpoint(aristaAB) → K
5. Segment(J, I) → f
6. Segment(J, K) → g
7. Midpoint(aristaBF) → L
8. Segment(K, L) → h
9. Midpoint(aristaFG) → M
10. Segment(M, L) → i
11. Midpoint(aristaCG) → N
12. Midpoint(aristaCD) → O
13. Segment(M, N) → j
14. Segment(N, O) → k
15. Midpoint(aristaDH) → P
16. Segment(I, P) → l
17. Segment(P, O) → m
18. Midpoint(A, G) → Q
19. Segment(Q, L) → n_{1}
20. Surface((g(t) * k) + (n_{1}(t) * (1 - k)), k, 0, 1, t, 0, 1) → s3
21. Mirror(s3, Plane[y = 0]) → s1
22. Line(J, N) → p
23. Mirror(s3, p) → s4
24. Mirror(s1, p) → s2
25. Mirror(l1, (0, 0, 0)) → l1'
26. Sequence(N + (i * (Q - N) / n), i, 0, n) → l2
27. Sequence(O + (i * (P - O) / n), i, 0, n) → l3
28. Zip(Segment[A, B], A, l2, B, l3) → l4
29. Sequence(N + (i * (M - N) / n), i, 0, n) → l5
30. Sequence(Q + (i * (L - Q) / n), i, 0, n) → l6
31. Zip(Segment[A, B], A, l5, B, l6) → l7
32. LaTeX(l6, true, true) → texto1
33. Sequence(J + (i * (K - J) / n), i, 0, n - 1) → l8
34. Sequence(J + (i * (Q - J) / n), i, 0, n) → l9
35. Sequence(K + (i * (L - K) / n), i, 0, n) → l10
36. Zip(Segment[A, B], A, l9, B, l10) → l11
37. Sequence(J + (i * (I - J) / n), i, 0, n) → l12
38. Sequence(Q + (i * (P - Q) / n), i, 0, n) → l13
39. Zip(Segment[A, B], A, l12, B, l13) → l14