单位圆与余弦函数图 by Mario

GeoGebra 命令及参数

1. Point(Ray[(0, 0), (-1, 0)]) → B
2. Rotate(A, θ, B) → P
3. Rotate(A, θ, B) → A'
4. Angle(A, B, A') → α
5. Rotate(A, θ, B) → A'_1
6. Angle(A, B, A'_1) → β
7. Circle(B, A) → c
8. Segment(B, P) → a
9. Vector((x(B), y(Corner[1])), (x(B), y(Corner[4]))) → u
10. Vector((0, y(Corner[1])), (0, y(Corner[4]))) → w
11. Vector((0, 0), (x(Corner[2]), 0)) → z
12. Sequence(Segment[((0.75 * i), 0), ((0.75 * i), -0.025)], i, 1, 4) → list1
13. Vector(B - (1.2, 0), B + (1.2, 0)) → v
14. Sequence(Segment[(0, (0.5 * i) - 1), (-0.025, (0.5 * i) - 1)], i, 0, 4) → list2
15. Sequence(Segment[(x(B), (0.5 * i) - 1), (x(B) - 0.025, (0.5 * i) - 1)], i, 0, 4) → list3
16. Segment(P, Q) → d
17. Sequence(Segment[B + ((0.5 * i) - 1, 0), B + ((0.5 * i) - 1, -0.025)], i, 0, 4) → list4
18. Point(Ray[(0, 0), (-1, 0)]) → B_1
19. Rotate(A_1, θ, B_1) → P_1
20. Rotate(A_1, θ, B_1) → A'_2
21. Rotate(A_1, θ, B_1) → A'_3
22. Circle(B_1, A_1) → c_1
23. Segment(B_1, P_1) → a_1
24. Segment(P, (-1.279, y(P))) → b
25. Segment(Q, Point[Circle[Q, 0]]) → e