使用量角器测量角 by Nicolas ERDRICH

GeoGebra 命令及参数

1. Circle(A, 5.4) → c
2. Point(c) → B
3. Line(B, A) → a
4. OrthogonalLine(A, a) → b
5. If(n ≟ 0, Random[10, 175], Random[190, 350]) → rndom
6. Circle(M_1, 6) → q
7. Intersect(q, Line[M_1, M_5]) → M_2, M_4
8. Circle(A, 4.5) → g
9. Circle(A, 4) → e
10. Circle(A, 5) → d
11. Vector(A, A) → u
12. Intersect(e, a, 2) → I_0
13. Intersect(d, a, 1) → L_0
14. Segment(I_0, L_0) → f
15. Intersect(g, f, 2) → J_0
16. Segment(J_0, L_0) → h
17. Circle(A, 4.75) → k
18. Intersect(k, h, 1) → K_0
19. Segment(L_0, K_0) → i
20. Sequence(Translate[Segment[Rotate[J_0, 5° * k, A], Rotate[L_0, 5° * k, A]], u], k, 1, 36) → GraduationsCinq
21. Translate(b, u) → b'
22. Point(b) → D
23. Circle(D, 2) → p
24. Sequence(Translate[Segment[Rotate[L_0, k°, A], Rotate[K_0, k°, A]], u], k, 1, 180) → GraduationsUnités
25. Sequence((Random[10, 15], Random[-5, 5]), k, 0, 2) → Liste
26. Angle(M_2, M_1, Rotate[M_2, rndom°, M_1]) → ang_2
27. Textfield(ang) → entrée
28. Segment(M_1, M_2) → l
29. Segment(M_1, Rotate[M_2, ang_2, M_1]) → s
30. Segment(A, B) → m
31. Intersect(p, a) → J, J_2
32. Intersect(p, a, 1) → H
33. Intersect(e, a) → C, E
34. Sequence(Translate[Segment[Rotate[C, 10° * k, A], Rotate[L_0, 10° * k, A]], u], k, 0, 18) → GraduationsDizaines
35. If(abs(ang_2 - 31°) < 0.5°, Text["BRAVO !"], Text[" FAUX ! "]) → texte
36. If(n ≟ 0, Random[10, 175], Random[190, 350]) → rndom_1
37. Circle(M_6, 6) → q_1
38. Intersect(q_1, Line[M_6, M_3]) → M_7, M_8
39. Angle(M_7, M_6, Rotate[M_7, rndom_1°, M_6]) → ang_1
40. Segment(M_6, M_7) → l_1