旋转测试

GeoGebra 命令及参数

1. RandomElement({(2, 3), (3, 3), (3, 2), (1, 3)}) → D
2. Random(1, 3) → i
3. Element({90*°, 270*°, 180*°}, i) → α
4. Sequence(Sequence[(i, j), i, 1, 5], j, 1, 5) → list1
5. Flatten(list1) → list2
6. Shuffle(list2) → list3
7. Take(list3, 3, 3) → list6
8. Point(list6) → A
9. First(list3, 1) → list4
10. Take(list3, 2, 2) → list5
11. Point(list6) → C
12. Point(list5) → B
13. Line(A, B) → lineAB
14. Segment(A, B) → a
15. Segment(E, F) → d
16. Segment(F, G) → e
17. RandomElement({(2, 2), (2.5, 2.5)}) → O
18. Rotate(B, α, O) → B'
19. If(Distance[C, lineAB] ≟ 0, C + (sgn(x(lineAB)), sgn(y(lineAB))), C) → CC
20. Rotate(CC, α, O) → C'
21. Segment(B', C') → b'
22. Rotate(A, α, O) → A'
23. Segment(B', A') → f
24. Segment(B, CC) → b
25. Distance(C, Line[A, B]) → h
26. Element({"90° anticlockwise", "90° clockwise", "180°"}, i) → text2