滑块拼图

GeoGebra 命令及参数

1. Point(points) → A
2. PolyLine((0, 0), (8, 0), (8, 8), (0, 8), (0, 0)) → frame
3. Point(points) → B
4. Point(points) → D
5. Point(points) → E
6. Point(points) → F
7. Point(points) → G
8. Point(points) → H
9. Point(points) → I
10. Point(points) → J
11. Point(points) → K
12. Point(points) → L
13. Point(points) → M
14. Point(points) → N
15. Point(points) → O
16. Sequence(Segment[(i, 0), (i, 8)], i, 2, 6, 2) → list1
17. Sequence(Segment[(0, i), (8, i)], i, 2, 6, 2) → list2
18. Polygon((x(Z) - 1, y(Z) - 1), (x(Z) + 1, y(Z) - 1), (x(Z) + 1, y(Z) + 1), (x(Z) - 1, y(Z) + 1)) → polygon1, a, b, c, d
19. If(t ≟ 10, false, true) → scramble
20. Sequence(If[Distance[Z, Element[points2, i]] ≟ 2, Element[points2, i]], i, 1, 15) → closepoints
21. RemoveUndefined(closepoints) → closepointsclean
22. CountIf(true, howmany, closepointsclean) → howmany
23. Random(1, howmany) → i
24. Polygon((18, 8), (20, 8), (20, 6), (18, 6)) → polygon2, e, f, g, h
25. IndexOf((3, 7), points) → j
26. Translate(frame, (12, 0)) → frame'