旋转抛物面3D增强现实模板：解析几何与立体几何的结合

GeoGebra 命令及参数

1. OrthogonalLine(P, c) → f
2. Segment(F, P) → g
3. Intersect(f, c) → C
4. Segment(P, C) → h
5. Dilate(F, If[0 < Animate ≤ 1, 1 - Animate, 0], P) → B'
6. Segment(F, B') → j
7. Dilate(P, If[1 < Animate ≤ 2, 2 - Animate, 0], C) → A'
8. Segment(P, A') → k
9. Plane(P, C, F) → l
10. IntersectPath(l, c) → m
11. Point(m) → D
12. Angle(P, C, D) → α
13. Angle(F, P, C) → β
14. Rotate(F, If[2 < Animate ≤ 3, ((-(Animate - 2)) * β), (-β)], P, l) → B'_1
15. Rotate(B', If[2 < Animate ≤ 3, ((-(Animate - 2)) * β), (-β)], P, l) → B''
16. Segment(B'_1, B'') → j'
17. IntersectPath(l, b) → p