在数轴上定位分数 by Cristina Masotta

GeoGebra 命令及参数

1. Vector((0, 0), (1, 0)) → u
2. Random(1, 6) → d
3. Random(1, 6) → n
4. Mod(n, d) → remainder
5. If(remainder ≟ 0, whole, whole + 1) → endNumber
6. Polygon(A, B, 4) → poly1, a, b, c, e, C, D
7. Sequence(B + i * u, i, 0, whole) → SecondLow
8. Sequence(A + i * u, i, 0, whole) → FirstLow
9. Zip(Polygon[X, Y, 4], X, FirstLow, Y, SecondLow) → list1
10. Sequence(Point[A, Vector[i * u / d]], i, 1, n) → PtBottom
11. Sequence(Point[D, Vector[i * u / d]], i, 1, n) → PtTop
12. Append(D, Take[PtTop, 1, n - 1]) → PtTop1
13. Append(A, Take[PtBottom, 1, n - 1]) → PtBottom1
14. Zip(Polygon[E, F, G, H], E, PtBottom1, F, PtBottom, G, PtTop, H, PtTop1) → list2
15. Polygon(C, B, 4) → poly2, f, g, h, i, E, F
16. Polygon(F, E, 4) → poly3, j, k, l, m, G, H
17. Polygon(H, G, 4) → poly4, p, q, r, s, I, J
18. Polygon(J, I, 4) → poly5, t, a_1, b_1, c_1, K, L
19. Polygon(L, K, 4) → poly6, d_1, e_1, f_1, g_1, M, N
20. Sequence(Point[OO, Vector[i * u / d]], i, 1, 10 * d) → list3
21. Element(list3, n) → Z
22. Zip(Segment[M, N], M, list3, N, PtBottom) → list4
23. Segment(A, OO) → h_1
24. Sequence(Point[D, Vector[i * u / d]], i, 1, d * endNumber) → allTop
25. Sequence(Point[A, Vector[i * u / d]], i, 1, d * endNumber) → allBott
26. Zip(Segment[M, N], M, allTop, N, allBott) → list5
27. Corner(text3, 2) → BB
28. Corner(text3, 3) → CC
29. Corner(text3, 4) → DD
30. Corner(text3, 1) → AA
31. Polygon(AA, BB, CC, DD) → frame, aa, bb, cc, dd
32. Midpoint(AA, BB) → MM