两个有理数之间的有理数

GeoGebra 命令及参数

1. If(step ≟ 5, 8, If[step < 5, 4, 12]) → Denominator
2. Flatten({0, Sequence[(CountIf[x ≟ "big", First[order, i]] * Denominator) + CountIf[x ≟ "little", First[order, i]], i, 1, Length[order]]}) → landings
3. If(Length[landings] ≟ 1, 1, (landings(Length[landings] - 1) + (jumpTimer * (landings(Length[landings]) - landings(Length[landings] - 1)))) / Denominator + 1) → max
4. Segment((0, 0), (Max[(2 * max), 10], 0)) → numberLine
5. Sequence(Segment[(i / Denominator, -0.02), (i / Denominator, 0.02)], i, 1, ((2 * (max + 1)) * Denominator)) → l2
6. If(number ≥ 1, Text[floor(number)], If[Length[landings] ≟ 1, "0", ""]) → wholeNumber
7. Text((((("$\frac{" * fractionPartNumerator) * "}{") * Denominator) * "}"), (0, 0), true, true) → fractionPart
8. If(4 ≤ step ≤ 5, 2, 3) → Mul
9. Vector(A, B) → u
10. Vector(C, D) → v
11. Sequence(Text[i, (i - right / 100, -0.07)], i, 0, (2 * (max + 1))) → l3