用数轴比较有理数

GeoGebra 命令及参数

1. Shuffle(Sequence[Random[-18, 18] / 12, i, 1, 100]) → randomNums, {-1.3333333333333333, -0.25, 0.5833333333333334, 0.4166666666666667, 0.16666666666666666, 0, 1.5, 0.6666666666666666, 0.8333333333333334, 1, -0.08333333333333333, 0.25, 0.25, 0.16666666666666666, 1.5, -0.8333333333333334, 0.5833333333333334, -0.9166666666666666, -0.08333333333333333, 0, -0.8333333333333334, 1.3333333333333333, -0.5, 0.3333333333333333, -1.1666666666666667, 1.3333333333333333, 0.8333333333333334, 0.4166666666666667, 0.5833333333333334, -0.75, 1.25, 0.08333333333333333, -0.5, -0.8333333333333334, 0.08333333333333333, 0.25, -1.3333333333333333, -1.0833333333333333, 0.4166666666666667, 0, -0.8333333333333334, 1.5, 1, -1.3333333333333333, -0.9166666666666666, 0.16666666666666666, 0.4166666666666667, 1.0833333333333333, 0.4166666666666667, 0.25, -1.1666666666666667, 0.4166666666666667, -0.3333333333333333, 1.1666666666666667, 0.25, -0.25, 0.25, -1.5, 0.6666666666666666, 0.5833333333333334, -0.9166666666666666, 0.6666666666666666, -1.3333333333333333, 0.4166666666666667, -1.3333333333333333, 1.25, 1, -0.8333333333333334, 0.16666666666666666, 0.75, -0.25, 1.3333333333333333, 0.5833333333333334, 0.5, -0.08333333333333333, -0.08333333333333333, -1.5, 0.3333333333333333, 0.9166666666666666, -1.3333333333333333, -0.5833333333333334, -1.1666666666666667, -0.3333333333333333, 0, 1.5, 1.4166666666666667, 0.4166666666666667, -0.4166666666666667, 0.5, 1.1666666666666667, 0.25, -1.3333333333333333, -0.3333333333333333, 1.1666666666666667, 0.8333333333333334, -1.0833333333333333, 0.8333333333333334, -1.0833333333333333, -0.6666666666666666, 1.4166666666666667}
2. Element(randomNums, Mod[count, 100] + 1) → randomNum
3. Shuffle(Sequence[Random[0, 2], i, 1, 100]) → randomForms, {2, 0, 0, 2, 2, 1, 2, 0, 0, 2, 1, 2, 2, 1, 1, 2, 2, 2, 0, 0, 0, 1, 2, 2, 0, 1, 1, 1, 1, 2, 1, 2, 1, 1, 0, 1, 1, 0, 2, 0, 1, 1, 1, 1, 2, 0, 1, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 2, 0, 2, 1, 2, 1, 1, 0, 2, 1, 1, 1, 2, 1, 0, 0, 2, 2, 2, 2, 1, 0, 0, 0, 2, 0, 2, 1, 0, 1, 2, 1, 2, 2, 1, 0, 2, 1, 0, 0, 1, 0, 1}
4. Element(randomForms, Mod[count, 100] + 1) → randomForm
5. Sequence(i, i, minX, maxX, 1 / 12) → allX
6. Point(Zip[(A, 0), A, allX]) → MovingPoint
7. Shuffle(Sequence[-10, 10]) → numberOptions, {-10, -5, 3, -4, -2, 5, 9, 4, -8, 8, 0, 10, 6, 7, -9, 1, -6, -3, -1, -7, 2}
8. Sort(Take[numberOptions, 1, 3]) → orderedNumbers
9. Sequence(i, i, minX, maxX, 1 / 4) → displayX
10. Zip(Segment[(A, -0.1), (A, 0.1)], A, displayX) → numberLineBigTicks
11. Zip(Segment[(A, -0.04), (A, 0.04)], A, allX) → numberLineSmallTicks
12. Zip(Text[(("" * If[A < 0, "-", ""]) * abs(A)), (A - 0.022, -0.1) + If[A < 0, 0, (0.04, 0)], true, true, 0, -1], A, displayX) → textNumberLineDecimal
13. Zip(Text[(("" * If[A < 0, "-", ""]) * FractionText[abs(A)]), (A - 0.022, -0.1) + If[A < 0, 0, (0.04, 0)], true, true, 0, -1], A, displayX) → textNumberLineFraction
14. Corner(5) → Dims
15. If(sliderFormat ≟ 0, Text[If[numberMovingPoint < 0, "\[-", "\["] + (FractionText[abs(numberMovingPoint)]) + "\]", (0, 0), true, true], sliderFormat ≟ 2, barNotation[numberMovingPoint], textMovingProper) → textMovingPoint
16. If(randomForm ≟ 0, textFixedImproper, randomForm ≟ 2, barNotation[randomNum], textFixedProper) → textFixedPoint
17. Sequence(i, i, -2, 2, 1 / 12) → numberLineVals
18. Zip(floor(n), n, allX) → numberLineWholes
19. Zip(Text[(("" * If[A < 0, "-", ""]) * If[A ≠ 0, properFraction[abs(A)], "0"]), (A - 0.022, -0.1) + If[A < 0, 0, (0.04, 0)], true, true, 0, -1], A, displayX) → textNumberLineProper
20. If(sliderFormat ≟ 0, textNumberLineFraction, sliderFormat ≟ 1, textNumberLineProper, textNumberLineDecimal) → numberLineDigits
21. makeBox(MovingPoint + (((-wh)) / 2, wh), wh, wh) → movingCenterBox
22. makeBox(RandomPoint + (((-wh)) / 2, wh), wh, wh) → fixedCenterBox