数轴上的分数 by Austen Meek

GeoGebra 命令及参数

1. Sequence((x(A + (k * a)), y(A)), k, 0, 100, 1) → list1
2. Sequence(Text[k, (x(A) + (k * a), y(A) - 0.5)], k, 0, 100, 1) → list2
3. Ray((x(A), y(A)), (x(A) + 10, y(A))) → b
4. Sequence((x(A) + (k * a / d), y(A)), k, 1, 100, 1) → list3
5. Sequence(Segment[(x(A) - 0.2 + (k * a / d), y(A) + 0.8), (x(A) + 0.2 + (k * a / d), y(A) + 0.8)], k, 0, 100, 1) → list7
6. Sequence(Text[k, (x(A) + (k * a / d) - 0.05, y(A) + 0.9)], k, 0, 9, 1) → list4
7. Sequence(Text[k, (x(A) + (k * a / d) - 0.12, y(A) + 0.9)], k, 10, 100, 1) → list6
8. If(d < 10, Sequence[Text[d, (x(A) + (k * a / d) - 0.05, y(A) + 0.5)], k, 0, 100, 1], Sequence[Text[d, (x(A) + (k * a / d) - 0.09, y(A) + 0.5)], k, 0, 100, 1]) → list5
9. Ray(B, (100, 0.8)) → c
10. Point(c) → C
11. Segment((x(C), 1.6), C) → f
12. Text(text2, (7.5, -0.6)) → text3
13. RandomElement(den) → denom
14. RandomElement(num) → numer
15. Segment(E, F) → g
16. Textfield(c_{rtext}) → InputBox1
17. Segment((x(A), y(A) + 0.05), (x(A) + (p * a / d), 1.75)) → j
18. Segment(G, H) → l
19. Length(Text[d]) → m
20. Length(Text[k]) → o