两平面夹角 by Anthony OR 柯志明

GeoGebra 命令及参数

1. Point(xAxis) → A
2. Point(xAxis) → B
3. Segment(A, B) → f
4. Point(f) → P
5. Polygon(A, B, C, D) → q1, a, b, c, d
6. Point(Sequence[P + ((3 * cos((2° * i))), (3 * sin((2° * i))), 0), i, 0, 90]) → Q
7. Segment(P, Q) → g
8. OrthogonalLine(Q, xOyPlane) → h
9. Point(h) → E
10. Plane(P, Q, E) → e
11. OrthogonalLine(Q, e) → i
12. Circle(Q, (Distance[P, Q] * tan(30°)), i) → k
13. Intersect(h, k, 1) → F
14. Point(Sequence[Rotate[F, (2° * i), g], i, -45, 45]) → R
15. Polygon(P, Q, R) → t1, r, p, q
16. Angle(R, Q, P) → α
17. Angle(Q, P, R) → β
18. OrthogonalPlane(R, a) → j
19. Intersect(a, j) → G
20. OrthogonalLine(R, q1) → l
21. Intersect(l, q1) → H
22. Angle(H, G, R) → γ
23. Rotate(q1, γ, a) → q1'
24. Angle(B, P, Q) → δ
25. Angle(B, P, R) → ε