数轴上的分数 by Radha Narve (2)

GeoGebra 命令及参数

1. Point(xAxis) → A
2. Point(Circle[A, abs(Zoom)]) → C
3. Segment(A, C) → b
4. Sequence(((b / Nr * k), 0), k, 0, Nr) → list1
5. Point(yAxis) → B
6. Point(Circle[B, abs(Zoom)]) → D_1
7. Segment(B, D_1) → c
8. Sequence(((c / Nr * k), -1), k, 0, Nr) → list2
9. Sequence(((c / ((Nr * Dr)) * k), -1), k, 0, (Nr * Dr)) → list4
10. Sequence(((b / ((Nr * Dr)) * k), 0), k, 0, (Nr * Dr)) → list3
11. Sequence(Segment[Element[list3, k], Element[list4, k]], k, 0, (Nr * Dr)) → list6
12. Sequence(Segment[Element[list1, k], Element[list2, k]], k, 1, (Nr * Dr)) → list5
13. Sequence(Text[k, ((b / Nr * k), (-1.5))], k, 1, Nr, 1) → list7