调整数轴步长与刻度间距：绘制整数点练习

GeoGebra 命令及参数

1. Join(Shuffle[{{1, 2, 3, 4, 5, 6}, {2, 1, 5, 4, 3, 6}, {3, 5, 4, 6, 1, 2}, {4, 2, 1, 5, 3, 6}, {5, 2, 1, 6, 4, 3}, {6, 1, 2, 5, 4, 3}, {1, 5, 3, 6, 2, 4}, {2, 4, 5, 1, 6, 3}, {3, 2, 1, 5, 4, 6}, {4, 5, 2, 1, 6, 3}, {5, 1, 6, 2, 3, 4}, {6, 4, 3, 2, 1, 5}}]) → listExCounts
2. Point(Line[O, xAxis]) → OEP
3. Segment(O, OEP) → strahlP
4. If(step ≟ 1, 0.9, 0.9) → width
5. Flatten(Join[{Sequence[Sequence[O + (m * ((width * strichabs), 0)) + (j * (0, width)), m, 0, length / ((width * strichabs))], j, 0, 1], Sequence[Sequence[O + (m * (((-width) * strichabs), 0)) + (j * (0, width)), m, 0, length / ((width * strichabs))], j, 0, 1]}]) → listCoords
6. Point(listCoords) → P3
7. Point(listCoords) → P2
8. Point(listCoords) → P1
9. Sequence(O + (((strichabs * width) * m), 0), m, 0, length / ((strichabs * width))) → listPointsP
10. Zip(Segment[P + (0, (-linelength)), P + (0, linelength)], P, listPointsP) → listLinesP
11. Segment(O + (0, 0.3), O + (0, -0.3)) → line
12. Sequence(O + ((((-strichabs) * width) * m), 0), m, 1, length / ((strichabs * width))) → listPointsN
13. Segment(O, OEN) → strahlN
14. Sequence(Text["\textsf{" + ((m * schrittweite)) + "}", O + (((m * width) * strichabs), -1), true, true, -0, 1], m, 0, Length[listPointsP] - 1) → listTextsP
15. Zip(Segment[P + (0, (-linelength)), P + (0, linelength)], P, listPointsN) → listLinesN
16. Sequence(Text["\textsf{\(-\)" + ((m * schrittweite)) + "}", O + ((((-m) * width) * strichabs) - 0.17, -1), true, true, -0, 1], m, 1, Length[listPointsP] - 1) → listTextN
17. Text((("\textsf{\textcolor{#6557d2}{\(" * numY) * "\)}}"), P2 + (If[numY < 0, -0.165, 0], 0.15), false, true, 0, 1) → CapP2
18. Text((("\textsf{\textcolor{#2e7d32}{\(" * numX) * "\)}}"), P1 + (If[numX < 0, -0.165, 0], 0.15), false, true, 0, 1) → CapP1
19. Text((("\textsf{\textcolor{#9c4381}{\(" * numZ) * "\)}}"), P3 + (If[numZ < 0, -0.165, 0], 0.15), false, true, 0, 1) → CapP3