圆锥展开图上的椭圆

GeoGebra 命令及参数

1. Point(Line[C, C + (0, 0, 1)]) → P_1
2. PointIn(Sphere[P_1, 2]) → P_2
3. OrthogonalPlane(P_1, Vector[P_1, P_2]) → p
4. If(open < 1, 0, open - 1) → p2
5. Surface(((g * v) * cos(u)), ((g * v) * sin(u)), 0, u, 0, (a * p2), v, 0, 1) → net1
6. Cone((r + g, 0, 0), (r + g, 0, h), r) → co1, co_2, co_3
7. IntersectPath(p, co1) → e1
8. Sequence(Point[e1, i], i, 0, 1, 1 / n) → le1
9. Sequence((r / g * Angle[(x(Element[le1, i]), y(Element[le1, i])), C, (0, 0)]), i, 1, n) → lu1
10. Sequence(Distance[Element[le1, i], S] / g, i, 1, n) → lv
11. Line((g, 0, 0), (g, 1, 0)) → ax0
12. If(open < 1, open, 1) → p1
13. Circle(P_1, (2 * r), Line[P_1, P_2]) → p'
14. Rotate(le1, ((-ar) * p1), ax0) → le2
15. Surface(((((v * h) * cos(aa)) - (((sin(aa) * v) * r) * cos(u))) * cos((a * p2))) - (((sin((a * p2)) * v) * r) * sin(u)), ((((v * h) * cos(aa)) - (((sin(aa) * v) * r) * cos(u))) * sin((a * p2))) + (((cos((a * p2)) * v) * r) * sin(u)), (-(((v * h) * sin(aa)) + (((cos(aa) * v) * r) * cos(u)))), u, 0, ((2 * π) * (1 - p2)), v, 0, 1) → net2
16. Sequence(Angle[(x(Element[le1, i]), y(Element[le1, i])), C, (0, 0)] - ((2 * π) * p2), i, 1, n) → lu2
17. Rotate(co1, ((-ar) * p1), Line[(g, 0, 0), (g, 1, 0)]) → co2
18. Sequence(If[Element[lu1, i] ≥ (a * p2) ∧ z(Element[le1, i]) > 0, net2(Element[lu2, i], Element[lv, i])], i, 1, n) → le4
19. Sequence(If[Element[lu1, i] ≤ (a * p2) ∧ z(Element[le1, i]) > 0, net1(Element[lu1, i], Element[lv, i])], i, 1, n) → le3