平方截面曲面（Surface with Square Cross Sections）

GeoGebra 命令及参数

1. PointIn(f) → A
2. PointIn(f) → B
3. PointIn(f) → C
4. PointIn(f) → D
5. PointIn(f) → G
6. PointIn(f) → H
7. PointIn(f) → I
8. PointIn(f) → J
9. FitPoly({M, L, E, K}) → g
10. FitPoly({P, N, O, F}) → h
11. Min({x(M), x(L), x(E), x(K), x(P), x(N), x(O), x(F)}) → a
12. Max({x(M), x(L), x(E), x(K), x(P), x(N), x(O), x(F)}) → b
13. Polygon(Q, R, S, T) → q1, q_1, r, s_1, t
14. Segment(Q, R) → i
15. Segment(R, S) → j
16. Segment(S, T) → k
17. Segment(T, Q) → l
18. CurveCartesian(t, q(t), abs(p(t) - q(t)), t, a, b) → c
19. CurveCartesian(t, p(t), abs(p(t) - q(t)), t, a, b) → d
20. Surface(u, p(u), (abs(p(u) - q(u)) * v), u, a, b, v, 0, 1) → e
21. Surface(u, q(u), (abs(p(u) - q(u)) * v), u, a, b, v, 0, 1) → m
22. Surface(u, q(u) + (abs(p(u) - q(u)) * v), abs(p(u) - q(u)), u, a, b, v, 0, 1) → n
23. Polygon((a, p(a), 0), (a, p(a), abs(p(a) - q(a))), (a, q(a), abs(p(a) - q(a))), (a, q(a), 0)) → q2, f_1, g_1, h_1, i_1
24. Vertex(q2, 1) → U
25. Vertex(q2, 2) → V
26. Vertex(q2, 3) → W
27. Vertex(q2, 4) → Z
28. Segment(Z, U) → j_1
29. Segment(U, V) → k_1
30. Segment(V, W) → l_1
31. Segment(W, Z) → m_1
32. Polygon((b, p(b), 0), (b, p(b), abs(p(b) - q(b))), (b, q(b), abs(p(b) - q(b))), (b, q(b), 0)) → q3, n_1, p_1, r_1, t_1
33. Vertex(q3, 1) → A_1
34. Vertex(q3, 2) → B_1
35. Vertex(q3, 3) → C_1
36. Vertex(q3, 4) → D_1
37. Segment(A_1, B_1) → a_1
38. Segment(B_1, C_1) → b_1
39. Segment(C_1, D_1) → c_1
40. Segment(D_1, A_1) → d_1