圆锥截线演示 by mtzoumas

GeoGebra 命令及参数

1. OrthogonalLine(M, xOyPlane) → a
2. Point(a) → B
3. Line(A, yAxis) → g
4. Circle(A, 16, xAxis) → c
5. Intersect(g, c) → X_1, J
6. Intersect(zAxis, c) → Z_1, Z_2
7. CircleArc(A, X_1, Z_1) → f
8. Point(f) → CC
9. If(j < 0, A + (0, (16 * cos(0)), (16 * sin(0))), If[j < π / 2 - α - 0.01, A + (0, (16 * cos(j)), (16 * sin(j))), If[j < π / 2 - α + 0.1, A + (0, (16 * cos(π / 2 - α)), (16 * sin(π / 2 - α))), If[j < π / 2 + 0.1, A + (0, (16 * cos(j - 0.1)), (16 * sin(j - 0.1))), If[j > π / 2 + 0.1, A + (0, (16 * cos(π / 2)), (16 * sin(π / 2)))]]]]) → XX
10. If(anim, XX, CC) → C
11. Point(zAxis) → H
12. Intersect(zAxis, xAxis) → O
13. Line(C, A) → d
14. Line(A, B) → b
15. Plane(d, b) → e
16. Mirror(H, xOyPlane) → H'
17. Point(zAxis) → I
18. InfiniteCone(O, H, α) → m
19. IntersectPath(e, m) → p
20. Vertex(p) → D, E, F, G
21. Angle(C, A, Z_1) → β
22. CircleArc(A, C, Z_1) → h
23. Circle(A, 20, xAxis) → k
24. Ray(A, C) → i
25. Intersect(i, k) → K,
26. Vector(A, K) → l
27. Textfield(α) → inputBox1