MathPlotAI Logo MathPlotAI

Fractions on the Number Line

Fractions on the Number Line
Loading the math board and drawing, please wait…
2018-11-15 01:04
TrigonometryCoordinate GeometryGeometric Construction
This example demonstrates how to represent fractions on a number line. Key mathematical concepts include fractions and their positions on the number line. Using GeoGebra commands such as Flatten, Sequence, and CurveCartesian, dynamic demonstrations of fraction addition and subtraction are provided. Suitable for high-grade elementary and junior high school students to learn about fractions and their applications.

GeoGebra Commands & Parameters

  1. Flatten({0, Sequence[(CountIf[x ≟ "big", First[order, i]] * Denominator) + CountIf[x ≟ "little", First[order, i]], i, 1, Length[order]]}) → landings
  2. Sequence(CurveCartesian[((landings(i) - landings(i - 1)) / (((2 * π) * Denominator)) * (t - sin(t))) + landings(i - 1) / Denominator, ((1 + (landings(i) - landings(i - 1) ≟ Denominator)) / 2 / π * (1 - cos(t))), t, 0, (2 * π)], i, 1, Length[landings] - 1) → jumps
  3. CurveCartesian(((landings(Length[landings]) - landings(Length[landings] - 1)) / (((2 * π) * Denominator)) * (t - sin(t))) + landings(Length[landings] - 1) / Denominator, ((1 + (landings(Length[landings]) - landings(Length[landings] - 1) ≟ Denominator)) / 2 / π * (1 - cos(t))), t, 0, ((2 * π) * jumpTimer)) → currentHop
  4. If(Length[landings] ≟ 1, 1, (landings(Length[landings] - 1) + (jumpTimer * (landings(Length[landings]) - landings(Length[landings] - 1)))) / Denominator + 1) → max
  5. Segment((0, 0), (Max[(2 * max), 10], 0)) → numberLine
  6. Sequence(Point[{i, 0}], i, 0, (2 * (max + 1))) → l1
  7. Sequence(Segment[(i / Denominator, -0.02), (i / Denominator, 0.02)], i, 1, ((2 * (max + 1)) * Denominator)) → l2
  8. Sequence(Text[i, (i - right / 100, -0.17)], i, 0, (2 * (max + 1))) → l3
  9. Sequence(FractionText[(Element[landings, i + 1] - Element[landings, i]) / Denominator], i, 1, Length[landings] - 1) → jumpsText
  10. Append("", Sequence["+", i, 1, Length[jumpsText] - 1]) → plusText
  11. If(number ≥ 1, Text[floor(number)], If[Length[landings] ≟ 1, "0", ""]) → wholeNumber
  12. Text((((("$\frac{" * fractionPartNumerator) * "}{") * Denominator) * "}"), (0, 0), true, true) → fractionPart