圆锥切割

GeoGebra 命令及参数

1. Point(zAxis) → A
2. Polygon(B, C, D) → tri1, d, b_1, c_1
3. InequacióRecta(B, C) → e
4. InequacióRecta(C, D) → f
5. InequacióRecta(D, B) → g
6. Translate(B, Vector[(0, 0, -12)]) → B'
7. Translate(C, Vector[(0, 0, -12)]) → C'
8. Translate(D, Vector[(0, 0, -12)]) → D'
9. Polygon(B', C', D') → tri1', d', b', c'
10. Segmentparamètric(B, C) → m
11. Segmentparamètric(C, D) → n
12. Segmentparamètric(D, B) → o
13. CurveCartesian(x(m(t)), y(m(t)), c(x(m(t)), y(m(t))), t, 0, 1) → p
14. CurveCartesian(x(n(t)), y(n(t)), c(x(n(t)), y(n(t))), t, 0, 1) → q
15. CurveCartesian(x(o(t)), y(o(t)), c(x(o(t)), y(o(t))), t, 0, 1) → r
16. Prism(tri1', -20) → l, E, arestaD'G, arestaEF, arestaFG, arestaEG, F, G, caraB'C'FE, caraC'D'GF, caraB'D'GE, caraEFG, arestaB'E, arestaC'F
17. Surface((k * m(t)) + ((1 - k) * D), k, 0, 1, t, 0, 1) → s
18. Surface(x(s(u, v)), y(s(u, v)), c(x(s(u, v)), y(s(u, v))), u, 0, 1, v, 0, 1) → t