MathPlotAI Logo MathPlotAI

Comparing Two Whole Numbers: Interactive Number Line and Sliders

Comparing Two Whole Numbers: Interactive Number Line and Sliders
Loading the math board and drawing, please wait…
2016-03-08 23:01
FunctionSequenceInequalitySlider AnimationGraphing
In collections Elementary School Applets
① This interactive applet demonstrates the comparison of two whole numbers, letting users type or slide values to see which is larger in real time. ② Core math concepts include integer comparison (greater/less/equal), number line ordering, and the Max/Min functions. ③ Construction highlights: uses Textfield and InputBox for user input, Sequence to generate number line ticks, Max and Min to compute the larger/smaller, Slider to adjust range, Buttons for reset/hide, Timer for timed activities, and lists to manage data. ④ Suitable for elementary grades (K-3) or early middle school, also useful for special education to build number sense through interactive visual feedback.

GeoGebra Commands & Parameters

  1. Textfield(righttext) → InputBox2
  2. Textfield(lefttext) → InputBox1
  3. Sequence(Point[{(2 * Mod[i, size]) + 1 - (1.5 * (size - (slide * size))), (2 * Div[i, size]) + 1}], i, 0, left - 1) → list4
  4. Sequence(Point[{(2 * Mod[i, size]) + 1 + (1.5 * (size - (slide * size))), (2 * Div[i, size]) + 1}], i, 0, right - 1) → list5
  5. Sequence(Point[{(2 * Div[i, 10]) + If[Div[i, 10] ≟ Div[left, 10], If[Mod[i, 10] < 5, 0, 2], 0] - (1.5 * (size - (slide * size))), (If[left - (10 * Div[i, 10]) < 10, 2, 1] * Mod[i, 10]) + If[Div[i, 10] ≟ Div[left, 10] ∧ (Mod[i, 10] > 4), -10, 0]}], i, 0, left - 1) → list6
  6. Sequence(Point[{(2 * Div[i, 10]) + If[Div[i, 10] ≟ Div[right, 10], If[Mod[i, 10] < 5, 0, 2], 0] + (1.5 * (size - (slide * size))), (If[right - (10 * Div[i, 10]) < 10, 2, 1] * Mod[i, 10]) + If[Div[i, 10] ≟ Div[right, 10] ∧ (Mod[i, 10] > 4), -10, 0]}], i, 0, right - 1) → list7
  7. Sequence(((list6(i) - list4(i)) * (1 - timer)) + list4(i), i, 1, left) → list8
  8. Sequence(((list7(i) - list5(i)) * (1 - timer)) + list5(i), i, 1, right) → list1
  9. Sequence(Polygon[list1(i), (x(list1(i)) + 1, y(list1(i))), 4], i, 1, right) → list3
  10. Max({15, (4 * size), (2 * Div[right, 10]) + (2 * size)}) → R
  11. Min((-2 * size), -15) → L
  12. Sequence(Polygon[list8(i), (x(list8(i)) + 1, y(list8(i))), 4], i, 1, left) → list2