三角函数估算（V2版）

GeoGebra 命令及参数

1. Random(5, 85) → t
2. Segment(A, B) → f
3. OrthogonalLine(B, f) → g
4. Rotate(B, (t * π / 180), A) → B'
5. Angle(B, A, B') → α
6. Ray(A, B') → h
7. Circle(B, 2) → c
8. Intersect(c, g, 2) → C
9. Ray(B, C) → i
10. Intersect(h, i) → D
11. Segment(B, D) → j
12. Segment(A, D) → k
13. Polygon(A, B, D) → poly1, d, a_1, b
14. Rotate(B, If[0 < e ≤ 1, (-((e * (π / 2 - α)))), α - π / 2], D) → B'_1
15. Rotate(D, If[0 < e ≤ 1, (-((e * (π / 2 - α)))), α - π / 2], D) → D'
16. Segment(B'_1, D') → j'
17. Rotate(A, If[0 < l ≤ 1, (α * l), α], A) → A'
18. Rotate(B, If[0 < l ≤ 1, (α * l), α], A) → B'_2
19. Segment(A', B'_2) → f'
20. Rotate(B, If[0 < m ≤ 1, (m * π / 2), π / 2], B) → B'_3
21. Rotate(D, If[0 < m ≤ 1, (m * π / 2), π / 2], B) → D'_1
22. Segment(B'_3, D'_1) → j'_1
23. Textfield(a) → InputBox1
24. Angle(D, B, A) → β
25. Random(1, 3) → choice
26. Textfield(v) → InputBox2