数轴四舍五入 v2

GeoGebra 命令及参数

1. Vector(A, B) → u
2. SelectedElement(roundtolist) → roundto
3. Sequence((-10 + i, 0), i, 0, 30) → alldots
4. Textfield(inputseedtext) → InputSeed
5. Sequence(Text[startline + (roundto * i), (i, 0) + u], i, 0, 10) → labeltext1
6. Sequence(startline + (roundto * i), i, 0, 10) → labelvalues1
7. Element(labelvalues1, floor((inputseednumber - startline) / roundto) + 1) → startline2
8. Translate(Locate0, Vector[(slideit1 * Vector[Locate0, Locate1])]) → Locate0'
9. Translate(Locate1, Vector[(slideit2 * Vector[Locate1, Locate2])]) → Locate1'
10. Translate(UpperBoundTextAdjuster, Vector[(slideit2 * Vector[UpperBoundTextAdjuster, (10, -3) + u])]) → UpperBoundTextAdjuster'
11. Translate(LowerBoundTextAdjuster, Vector[(slideit2 * Vector[LowerBoundTextAdjuster, (0, -3) + u])]) → LowerBoundTextAdjuster'
12. Sequence(Text[startline2 + (roundto / 10 * i), (i, -3) + u], i, 0, 10) → labeltext2
13. Translate((locatelowerbound - 1, 0), Vector[(slideit2 * Vector[(locatelowerbound - 1, 0), C])]) → E
14. Translate((locateupperbound - 1, 0), Vector[(slideit2 * Vector[(locateupperbound - 1, 0), D])]) → F
15. Sequence((-10 + i, -3), i, 0, 30) → alldots2
16. Text(inputseedtext, Locate1' + (-0.33, 0.49), true, true) → inputseedtext2
17. Text(startline2 + roundto, UpperBoundTextAdjuster' + (-0.15, -0.2)) → upperbound
18. Text(startline2, LowerBoundTextAdjuster' + (-0.2, -0.2)) → lowerbound
19. Sequence(Text[VerticalText[TableText[{{" " + (startline + (roundto * i)), " "}}, "vc"]], (i, 0) + (-0.2, 0), true, true], i, 0, 10) → list1