三角函数与单位圆的动态可视化探索

GeoGebra 命令及参数

1. If(vals ≟ 8, "-", If[vals ≟ 24 ∨ vals ≟ 16, ""]) → textaux1'
2. Element(functions, var) → F
3. If(val2 ≟ val2, Text[val2], "Undefined") → text6
4. Element(values, vals) → Espval
5. FractionText(Espval) → textaux3
6. If(vals ≟ 16, textaux1', textaux2) → text1
7. If(vals ≟ 24 ∨ vals ≟ 8, textaux1', textaux3) → textaux4
8. Circle((0, 0), 1) → c
9. If(special ≟ true, Rotate[A, (Espval * pi), (0, 0)], Rotate[A, theta, (0, 0)]) → A'
10. Segment((0, 0), A') → radius
11. If(special ≟ true, ((Espval * pi), F((Espval * pi))), (theta, F(theta))) → B
12. If(special ≟ true, (Espval * pi), theta) → anglecurve
13. CurveCartesian(((a * b^(i)) * cos(i)), ((a * b^(i)) * sin(i)), i, 0, anglecurve) → anglepositive
14. CurveCartesian(((a * b^(i)) * cos(i)), (((-a) * b^(i)) * sin(i)), i, 0, (-anglecurve)) → anglenegative
15. If(special ≟ false, (4 * pi) + 0.5, (11 / 6 * pi) + 0.5) → xmax
16. If(special ≟ true ∧ (a1 ≟ true ∨ a2 ≟ true ∨ a4 ≟ true ∨ a5 ≟ true), 3, If[special ≟ false ∧ (a3 ≟ true ∨ a6 ≟ true), 8.5, 4.5]) → ymax
17. If(special ≟ true ∧ (a1 ≟ true ∨ a2 ≟ true), 4, 6) → d
18. If(special ≟ true ∧ (a1 ≟ true ∨ a2 ≟ true), 2, If[special ≟ false, 6, 16]) → aux
19. If(val1 ≟ val1, SurdText[val1], "Undefined") → surd1
20. If(special ≟ true, Segment[((Espval * pi), 0), B], Segment[(theta, 0), B]) → f
21. If(val1 ≟ val1, SurdText[val1], "Undefined") → text4
22. Segment((x(A'), 0), A') → seg1
23. Segment((0, y(A')), A') → seg2
24. Line((0, 0), A') → g
25. OrthogonalLine((1, 0), xAxis) → h
26. OrthogonalLine((-1, 0), xAxis) → i
27. Intersect(g, h) → C
28. OrthogonalLine((0, 1), yAxis) → j
29. OrthogonalLine((0, -1), yAxis) → k
30. Intersect(g, j) → D
31. Segment((1, 0), C) → seg3
32. Segment((0, 1), D) → seg6
33. Segment((0, 0), D) → seg4
34. Segment((0, 0), C) → seg5
35. Tangent(A', c) → l,
36. Intersect(xAxis, l) → E
37. Intersect(yAxis, l) → G
38. Segment(A', E) → seg3'
39. Segment((0, 0), G) → seg4'
40. Segment((0, 0), E) → seg5'
41. Segment(G, A') → seg6'
42. Ray((0, 0), A') → m
43. Segment(G, E) → n
44. Textfield(theta) → InputBox1
45. If(special ≟ true, (180 * ° / 3), 180°) → divgrad
46. If(special ≟ true, pi / 2, pi) → div
47. Point(yAxis) → H
48. OrthogonalLine(H, yAxis) → p
49. Element(thetaRadians, vals) → New
50. If(a1 ≟ true, text2, If[a2 ≟ true, text7, If[a3 ≟ true, text14, If[a4 ≟ true, text17, If[a5 ≟ true, text16, If[a6 ≟ true, text15]]]]]) → func