MathPlotAI Logo MathPlotAI

Rational Numbers Input & Reading - Level 1

Rational Numbers Input & Reading - Level 1
Loading the math board and drawing, please wait…
2025-01-21 20:17
FunctionSequenceCoordinate GeometryGeometric ConstructionSlider Animation
In collections Rationale Zahlen & Arbeiten mit der Zahlengerade
This example demonstrates how to input and read rational numbers on a number line. The core math concepts involved include comparing and ordering rational numbers, and representing rational numbers on a rational number line. Construction highlights: Utilizes GeoGebra commands such as Sequence, Join, Shuffle, If, Element, Remove, Point, Textfield, Translate, Segment, Unique, KeepIf, Text, Circle, Defined; objects include btnValidate, attemptCount, questionCount, correctCount, input, counter, PStart, disP, numberOfNumbers, AllPointsList, CaseZStartList, CaseAll, CaseZDOrder, CaseZBOrder, CaseZDList, CaseZBList, CaseZList, CaseZ, numberStartList, example, numberStepList, level, Level1StartNumber, Level2StartNumber, Level3StartNumber, numberStart, numberStep, AllNumbersList, capStepList, capStep, capDis, capStartList, capStart, CapNumbersList, CaseQStartList, CaseQList, CaseQ, NumberList1, NumberMatrix, NumberDrawList. Suitable for 7-8 grade students to practice and reinforce the concept of rational numbers.

GeoGebra Commands & Parameters

  1. Sequence(PStart + (k * (disP, 0)), k, 0, numberOfNumbers - 1) → AllPointsList
  2. Join({{1}, Shuffle[2…6]}) → CaseZStartList
  3. Join(Sequence[Shuffle[{1, 2, 3, 4}], k, 1, 25]) → CaseAll
  4. Shuffle({1, 2, 4, 5, 6}) → CaseZDOrder, {5, 6, 4, 1, 2}
  5. Shuffle(1…8) → CaseZBOrder, {5, 3, 1, 4, 6, 2, 8, 7}
  6. Sequence(CaseZDOrder(Mod[CountIf[a ∈ {1, 2}, a, Take[CaseAll, 1, k]] - 1, 5] + 1), k, 1, 100) → CaseZDList, {5, 5, 6, 6, 4, 4, 4, 1, 1, 2, 2, 5, 5, 6, 4, 4, 1, 2, 2, 2, 5, 6, 6, 6, 4, 4, 4, 1, 2, 5, 5, 5, 6, 4, 4, 4, 4, 1, 2, 2, 5, 5, 5, 6, 4, 4, 4, 1, 2, 5, 5, 5, 6, 4, 4, 4, 1, 1, 1, 2, 5, 6, 6, 6, 4, 4, 4, 1, 2, 5, 5, 5, 5, 5, 6, 4, 4, 1, 2, 2, 2, 5, 6, 6, 6, 4, 1, 1, 1, 2, 2, 5, 5, 6, 6, 4, 4, 1, 1, 2}
  7. Sequence(CaseZBOrder(Mod[CountIf[a ∈ {3, 4}, a, Take[CaseAll, 1, k]] - 1, 6] + 1), k, 1, 100) → CaseZBList, {2, 5, 5, 3, 3, 1, 4, 4, 6, 6, 2, 2, 5, 5, 5, 3, 3, 3, 1, 4, 4, 4, 6, 2, 2, 5, 3, 3, 3, 3, 1, 4, 4, 4, 6, 2, 5, 5, 5, 3, 3, 1, 4, 4, 4, 6, 2, 2, 2, 2, 5, 3, 3, 3, 1, 4, 4, 6, 2, 2, 2, 2, 5, 3, 3, 1, 4, 4, 4, 4, 6, 2, 5, 3, 3, 3, 1, 1, 1, 4, 6, 6, 6, 2, 5, 5, 5, 3, 1, 1, 4, 4, 6, 6, 2, 2, 5, 5, 3, 3}
  8. Sequence(If[CaseAll(k) ∈ {1, 2}, CaseZDList(k), CaseZBList(k)], k, 1, 100) → CaseZList
  9. If(example, -7.5, Level1StartNumber(CaseZ, counter)) → numberStart
  10. If(example, 0.5, numberStepList(CaseZ)) → numberStep
  11. Sequence(numberStart + (k * numberStep), k, 0, numberOfNumbers - 1) → AllNumbersList, {-3, -2.8, -2.6, -2.4, -2.2, -2, -1.7999999999999998, -1.5999999999999999, -1.4, -1.2, -1, -0.7999999999999998, -0.5999999999999996, -0.3999999999999999, -0.19999999999999973, 0, 0.20000000000000018, 0.40000000000000036, 0.6000000000000001, 0.8000000000000003, 1, 1.2000000000000002, 1.4000000000000004, 1.6000000000000005, 1.8000000000000007, 2, 2.2, 2.4000000000000004, 2.6000000000000005, 2.8000000000000007, 3}
  12. If(example, 1, capStepList(CaseZ)) → capStep
  13. Element(KeepIf[Mod[a, 2] ∈ If[CaseZ ≟ 1, {0, 1}, CaseZ ≟ 2, {0}, CaseZ ≟ 3, {0, 1}, CaseZ ≟ 4, {0, 1}, CaseZ ≟ 5, {0, 1}, CaseZ ≟ 6, {0, 0.5, 1, 1.5}, CaseZ ≟ 7, {0, 1}, CaseZ ≟ 8, {0, 1}], a, AllNumbersList], 1) → capStart
  14. Sequence(capStart + (k * capStep), k, 0, numberOfNumbers - 1, capDis) → CapNumbersList, {-3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27}
  15. Sequence(If[CaseAll(k) ∈ {1, 3}, 1, 2], k, 1, 100) → CaseQList
  16. Remove(AllNumbersList, CapNumbersList) → NumberList1
  17. Sequence(If[k ≟ 1, RandomElement[KeepIf[abs(a) > 1, a, Element[NumberDrawList, CaseZList(1)]]], RandomElement[Element[NumberDrawList, CaseZList(k)]]], k, 1, 100) → NumberList
  18. Join({{StartPQ1}, AllPointsList}) → PointsQ1List
  19. Point(PointsQ1List) → PQ1
  20. If(CaseAll(counter) ∈ {1, 2}, false, true) → bruch
  21. If(selectedNumber < 0, SelectedIndex[dropdown01] ≟ 3, SelectedIndex[dropdown01] ∈ {1, 2}) → correctSign
  22. If(Defined[input1], input1 + input2 / input3 ≟ abs(selectedNumber), input2 / input3 ≟ abs(selectedNumber)) → correctNumber
  23. If(CaseQ ≟ 1, PQ1 ≟ SolPQ1, If[bruch, correctNumber ∧ correctSign, input ≟ selectedNumber]) → correct
  24. Sequence(Random[1, 10], i, 1, 10) → randomNumbers, {10, 4, 6, 2, 2, 3, 7, 2, 6, 2}
  25. Element(randomNumbers, Mod[questionCount, Length[randomNumbers]] + 1) → randomNumber
  26. Textfield(input) → inputBox
  27. Join({Sequence[Segment[Corner[4] + (RasterPixMat * ((k * RasterStepXY), 0)), Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY))], k, 0, RasterMaxX / RasterStepXY], Sequence[Segment[Corner[4] + (RasterPixMat * (0, (k * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], k, 0, RasterMaxY / RasterStepXY]}) → RasterStrecken
  28. Join({Sequence[Text[UnicodeToLetter[65 + k], Midpoint[Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY)), Corner[4] + (RasterPixMat * (((k + 1) * RasterStepXY), RasterMaxY))], false, true, 0, -1], k, 0, RasterMaxX / RasterStepXY - 1], Sequence[Text[("" * k), Midpoint[Corner[4] + (RasterPixMat * (RasterMaxX, ((k - 1) * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], false, true, 1, 0], k, 1, RasterMaxY / RasterStepXY]}) → RasterBeschriftung
  29. Sequence(Sequence[Corner[4] + (RasterPixMat * ((k * RasterStepXY), (m * RasterStepXY))), k, 0, RasterMaxX / RasterStepXY], m, 0, RasterMaxY / RasterStepXY) → RasterPunkte, {{(-0.3200000000000001, 10.360000000000001), (0.682358490566038, 10.360000000000001), (1.6847169811320761, 10.360000000000001), (2.6870754716981144, 10.360000000000001), (3.689433962264152, 10.360000000000001), (4.691792452830191, 10.360000000000001), (5.694150943396229, 10.360000000000001), (6.696509433962267, 10.360000000000001), (7.6988679245283045, 10.360000000000001), (8.701226415094343, 10.360000000000001), (9.703584905660382, 10.360000000000001), (10.70594339622642, 10.360000000000001), (11.708301886792459, 10.360000000000001), (12.710660377358497, 10.360000000000001), (13.713018867924534, 10.360000000000001), (14.715377358490572, 10.360000000000001), (15.71773584905661, 10.360000000000001), (16.720094339622648, 10.360000000000001)}, {(-0.3200000000000001, 9.35665551839465), (0.682358490566038, 9.35665551839465), (1.6847169811320761, 9.35665551839465), (2.6870754716981144, 9.35665551839465), (3.689433962264152, 9.35665551839465), (4.691792452830191, 9.35665551839465), (5.694150943396229, 9.35665551839465), (6.696509433962267, 9.35665551839465), (7.6988679245283045, 9.35665551839465), (8.701226415094343, 9.35665551839465), (9.703584905660382, 9.35665551839465), (10.70594339622642, 9.35665551839465), (11.708301886792459, 9.35665551839465), (12.710660377358497, 9.35665551839465), (13.713018867924534, 9.35665551839465), (14.715377358490572, 9.35665551839465), (15.71773584905661, 9.35665551839465), (16.720094339622648, 9.35665551839465)}, {(-0.3200000000000001, 8.353311036789298), (0.682358490566038, 8.353311036789298), (1.6847169811320761, 8.353311036789298), (2.6870754716981144, 8.353311036789298), (3.689433962264152, 8.353311036789298), (4.691792452830191, 8.353311036789298), (5.694150943396229, 8.353311036789298), (6.696509433962267, 8.353311036789298), (7.6988679245283045, 8.353311036789298), (8.701226415094343, 8.353311036789298), (9.703584905660382, 8.353311036789298), (10.70594339622642, 8.353311036789298), (11.708301886792459, 8.353311036789298), (12.710660377358497, 8.353311036789298), (13.713018867924534, 8.353311036789298), (14.715377358490572, 8.353311036789298), (15.71773584905661, 8.353311036789298), (16.720094339622648, 8.353311036789298)}, {(-0.3200000000000001, 7.349966555183947), (0.682358490566038, 7.349966555183947), (1.6847169811320761, 7.349966555183947), (2.6870754716981144, 7.349966555183947), (3.689433962264152, 7.349966555183947), (4.691792452830191, 7.349966555183947), (5.694150943396229, 7.349966555183947), (6.696509433962267, 7.349966555183947), (7.6988679245283045, 7.349966555183947), (8.701226415094343, 7.349966555183947), (9.703584905660382, 7.349966555183947), (10.70594339622642, 7.349966555183947), (11.708301886792459, 7.349966555183947), (12.710660377358497, 7.349966555183947), (13.713018867924534, 7.349966555183947), (14.715377358490572, 7.349966555183947), (15.71773584905661, 7.349966555183947), (16.720094339622648, 7.349966555183947)}, {(-0.3200000000000001, 6.346622073578595), (0.682358490566038, 6.346622073578595), (1.6847169811320761, 6.346622073578595), (2.6870754716981144, 6.346622073578595), (3.689433962264152, 6.346622073578595), (4.691792452830191, 6.346622073578595), (5.694150943396229, 6.346622073578595), (6.696509433962267, 6.346622073578595), (7.6988679245283045, 6.346622073578595), (8.701226415094343, 6.346622073578595), (9.703584905660382, 6.346622073578595), (10.70594339622642, 6.346622073578595), (11.708301886792459, 6.346622073578595), (12.710660377358497, 6.346622073578595), (13.713018867924534, 6.346622073578595), (14.715377358490572, 6.346622073578595), (15.71773584905661, 6.346622073578595), (16.720094339622648, 6.346622073578595)}, {(-0.3200000000000001, 5.343277591973243), (0.682358490566038, 5.343277591973243), (1.6847169811320761, 5.343277591973243), (2.6870754716981144, 5.343277591973243), (3.689433962264152, 5.343277591973243), (4.691792452830191, 5.343277591973243), (5.694150943396229, 5.343277591973243), (6.696509433962267, 5.343277591973243), (7.6988679245283045, 5.343277591973243), (8.701226415094343, 5.343277591973243), (9.703584905660382, 5.343277591973243), (10.70594339622642, 5.343277591973243), (11.708301886792459, 5.343277591973243), (12.710660377358497, 5.343277591973243), (13.713018867924534, 5.343277591973243), (14.715377358490572, 5.343277591973243), (15.71773584905661, 5.343277591973243), (16.720094339622648, 5.343277591973243)}, {(-0.3200000000000001, 4.339933110367892), (0.682358490566038, 4.339933110367892), (1.6847169811320761, 4.339933110367892), (2.6870754716981144, 4.339933110367892), (3.689433962264152, 4.339933110367892), (4.691792452830191, 4.339933110367892), (5.694150943396229, 4.339933110367892), (6.696509433962267, 4.339933110367892), (7.6988679245283045, 4.339933110367892), (8.701226415094343, 4.339933110367892), (9.703584905660382, 4.339933110367892), (10.70594339622642, 4.339933110367892), (11.708301886792459, 4.339933110367892), (12.710660377358497, 4.339933110367892), (13.713018867924534, 4.339933110367892), (14.715377358490572, 4.339933110367892), (15.71773584905661, 4.339933110367892), (16.720094339622648, 4.339933110367892)}, {(-0.3200000000000001, 3.3365886287625406), (0.682358490566038, 3.3365886287625406), (1.6847169811320761, 3.3365886287625406), (2.6870754716981144, 3.3365886287625406), (3.689433962264152, 3.3365886287625406), (4.691792452830191, 3.3365886287625406), (5.694150943396229, 3.3365886287625406), (6.696509433962267, 3.3365886287625406), (7.6988679245283045, 3.3365886287625406), (8.701226415094343, 3.3365886287625406), (9.703584905660382, 3.3365886287625406), (10.70594339622642, 3.3365886287625406), (11.708301886792459, 3.3365886287625406), (12.710660377358497, 3.3365886287625406), (13.713018867924534, 3.3365886287625406), (14.715377358490572, 3.3365886287625406), (15.71773584905661, 3.3365886287625406), (16.720094339622648, 3.3365886287625406)}, {(-0.3200000000000001, 2.3332441471571883), (0.682358490566038, 2.3332441471571883), (1.6847169811320761, 2.3332441471571883), (2.6870754716981144, 2.3332441471571883), (3.689433962264152, 2.3332441471571883), (4.691792452830191, 2.3332441471571883), (5.694150943396229, 2.3332441471571883), (6.696509433962267, 2.3332441471571883), (7.6988679245283045, 2.3332441471571883), (8.701226415094343, 2.3332441471571883), (9.703584905660382, 2.3332441471571883), (10.70594339622642, 2.3332441471571883), (11.708301886792459, 2.3332441471571883), (12.710660377358497, 2.3332441471571883), (13.713018867924534, 2.3332441471571883), (14.715377358490572, 2.3332441471571883), (15.71773584905661, 2.3332441471571883), (16.720094339622648, 2.3332441471571883)}, {(-0.3200000000000001, 1.329899665551837), (0.682358490566038, 1.329899665551837), (1.6847169811320761, 1.329899665551837), (2.6870754716981144, 1.329899665551837), (3.689433962264152, 1.329899665551837), (4.691792452830191, 1.329899665551837), (5.694150943396229, 1.329899665551837), (6.696509433962267, 1.329899665551837), (7.6988679245283045, 1.329899665551837), (8.701226415094343, 1.329899665551837), (9.703584905660382, 1.329899665551837), (10.70594339622642, 1.329899665551837), (11.708301886792459, 1.329899665551837), (12.710660377358497, 1.329899665551837), (13.713018867924534, 1.329899665551837), (14.715377358490572, 1.329899665551837), (15.71773584905661, 1.329899665551837), (16.720094339622648, 1.329899665551837)}, {(-0.3200000000000001, 0.3265551839464855), (0.682358490566038, 0.3265551839464855), (1.6847169811320761, 0.3265551839464855), (2.6870754716981144, 0.3265551839464855), (3.689433962264152, 0.3265551839464855), (4.691792452830191, 0.3265551839464855), (5.694150943396229, 0.3265551839464855), (6.696509433962267, 0.3265551839464855), (7.6988679245283045, 0.3265551839464855), (8.701226415094343, 0.3265551839464855), (9.703584905660382, 0.3265551839464855), (10.70594339622642, 0.3265551839464855), (11.708301886792459, 0.3265551839464855), (12.710660377358497, 0.3265551839464855), (13.713018867924534, 0.3265551839464855), (14.715377358490572, 0.3265551839464855), (15.71773584905661, 0.3265551839464855), (16.720094339622648, 0.3265551839464855)}, {(-0.3200000000000001, -0.6767892976588659), (0.682358490566038, -0.6767892976588659), (1.6847169811320761, -0.6767892976588659), (2.6870754716981144, -0.6767892976588659), (3.689433962264152, -0.6767892976588659), (4.691792452830191, -0.6767892976588659), (5.694150943396229, -0.6767892976588659), (6.696509433962267, -0.6767892976588659), (7.6988679245283045, -0.6767892976588659), (8.701226415094343, -0.6767892976588659), (9.703584905660382, -0.6767892976588659), (10.70594339622642, -0.6767892976588659), (11.708301886792459, -0.6767892976588659), (12.710660377358497, -0.6767892976588659), (13.713018867924534, -0.6767892976588659), (14.715377358490572, -0.6767892976588659), (15.71773584905661, -0.6767892976588659), (16.720094339622648, -0.6767892976588659)}, {(-0.3200000000000001, -1.6801337792642173), (0.682358490566038, -1.6801337792642173), (1.6847169811320761, -1.6801337792642173), (2.6870754716981144, -1.6801337792642173), (3.689433962264152, -1.6801337792642173), (4.691792452830191, -1.6801337792642173), (5.694150943396229, -1.6801337792642173), (6.696509433962267, -1.6801337792642173), (7.6988679245283045, -1.6801337792642173), (8.701226415094343, -1.6801337792642173), (9.703584905660382, -1.6801337792642173), (10.70594339622642, -1.6801337792642173), (11.708301886792459, -1.6801337792642173), (12.710660377358497, -1.6801337792642173), (13.713018867924534, -1.6801337792642173), (14.715377358490572, -1.6801337792642173), (15.71773584905661, -1.6801337792642173), (16.720094339622648, -1.6801337792642173)}}
  30. Translate(imgChilliGrau1, Vector[(1 * Vector[((0.8 * dimChilli), 0)])]) → imgChilliGrau2
  31. Translate(imgChilliRot1, Vector[(1 * Vector[((0.8 * dimChilli), 0)])]) → imgChilliRot2
  32. Translate(imgChilliRot1, Vector[(2 * Vector[((0.8 * dimChilli), 0)])]) → imgChilliRot3
  33. Segment(PStart + ((-disEnd), 0), PStart + (((numberOfNumbers - 1) * disP) + disEnd, 0)) → Zahlengerade
  34. Sequence(Segment[PStart + ((k * disP), If[IsInteger[AllNumbersList(k + 1)], segLength1, segLength2]), PStart + ((k * disP), (-If[IsInteger[AllNumbersList(k + 1)], segLength1, segLength2]))], k, 0, numberOfNumbers - 1) → AllSegList
  35. Unique(Sequence[IndexOf[true, Sequence[IsInteger[AllNumbersList(k)], k, 1, numberOfNumbers], m], m, 1, numberOfNumbers]) → AllIntegersIndexList
  36. KeepIf(IsInteger[a], a, AllNumbersList) → AllIntegersList
  37. Remove(1…numberOfNumbers, AllIntegersIndexList) → AllNotIntegersIndexList
  38. Remove(AllNumbersList, AllIntegersList) → AllNotIntegersList
  39. Sequence(abs(Numerator[AllNumbersList(k)]), k, 1, numberOfNumbers) → AllNumeratorsList, {3, 14, 13, 12, 11, 2, 9, 8, 7, 6, 1, 4, 3, 2, 1, 0, 1, 2, 3, 4, 1, 6, 7, 8, 9, 2, 11, 12, 13, 14, 3}
  40. Sequence(Denominator[AllNumbersList(k)], k, 1, numberOfNumbers) → AllDenominatorsList
  41. Sequence(If[AllNumbersList(k) < 0, "\(-\)", ""], k, 1, numberOfNumbers) → AllSignsTxtList
  42. Sequence((ReplaceAll[(AllSignsTxtList(k) * abs(AllNumbersList(k))), ".", ","] * "\vphantom{,}"), k, 1, numberOfNumbers) → AllTxtD1
  43. Sequence(((AllSignsTxtList(k) * If[k ∈ AllIntegersIndexList, ("" * abs(AllNumbersList(k))), (((("\dfrac{" * AllNumeratorsList(k)) * "}{") * AllDenominatorsList(k)) * "}")]) * "\vphantom{\dfrac{1}{2}}"), k, 1, numberOfNumbers) → AllTxtD2
  44. Sequence(Text[If[IsInteger[AllNumbersList(k)], (("\textsf{" * AllTxtD1(k)) * "}"), ""], AllPointsList(k) + (If[AllNumbersList(k) < 0, -0.166, 0], (-segLength1)), false, true, 0, -1], k, 1, numberOfNumbers) → TxtIntegers
  45. If(example ∨ CaseZ ≟ 1 ∨ CaseZ ≟ 2, -7.5, CaseZ ≟ 7, -2.5, CaseZ ≟ 8, -1.875, CaseZ ≟ 3, -5, CaseZ ≟ 4, -3.75, CaseZ ≟ 5, -3, CaseZ ≟ 6, -1.5) → markStart
  46. KeepIf(Defined[IndexOf[a, AllNumbersList]], a, Sequence[markStart + (k * markStep), k, 0, numberOfNumbers - 1, markDis]) → MarkNumbersList
  47. KeepIf(a ≠ "", a, Sequence[Text[If[Defined[IndexOf[AllNumbersList(k), CapNumbersList]], (("\textsf{" * AllTxtD1(k)) * "}"), ""], AllPointsList(k) + (If[AllNumbersList(k) < 0, -0.166, 0], (-segLength1)), false, true, 0, -1], k, 1, numberOfNumbers]) → TxtDec
  48. Remove(AllNumbersList, MarkNumbersList) → NumberList2
  49. Text("\textsf{Lösung:}", PosSolution + (0, 0), false, true, 0, -1) → txtSolution2
  50. Circle(PQ1, radiusFB) → circleFB
  51. Segment(AllPointsList(IndexOf[selectedNumber, AllNumbersList]) + (0, segLength1 + 0.2), AllPointsList(IndexOf[selectedNumber, AllNumbersList]) + (0, segLength1 + 1.25)) → segSolution
  52. If(IndexOf[selectedNumber, AllNumbersList] > 6, Segment[AllPointsList(IndexOf[MarkNumbersList(2), AllNumbersList]) + disHint, AllPointsList(IndexOf[MarkNumbersList(1), AllNumbersList]) + disHint], Segment[AllPointsList(IndexOf[MarkNumbersList(Length[MarkNumbersList]), AllNumbersList]) + disHint, AllPointsList(IndexOf[MarkNumbersList(Length[MarkNumbersList] - 1), AllNumbersList]) + disHint]) → segHint
  53. Textfield(input1) → InputBox1
  54. Textfield(input2) → InputBox2
  55. Textfield(input3) → InputBox3
  56. Sequence(abs(Numerator[Mod[AllNumbersList(k), 1]]), k, 1, numberOfNumbers) → AllNumeratorsList2, {0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0}
  57. Sequence(Element[{2, 3}, Mod[CountIf[a ∈ {3}, a, Take[CaseAll, 1, k]] - 1, 2] + 1], k, 1, 100) → darstellungBruchList
  58. Sequence(If[CaseAll(k) ∈ {1, 2}, 1, CaseAll(k) ≟ 3, darstellungBruchList(k), 3], k, 1, 100) → DarstellungList
  59. Defined(IndexOf["/", Split[Text[inputBox], {""}]]) → isBruch
  60. If(CaseQ ≟ 1, Defined[IndexOf[PQ1, AllPointsList]], If[¬bruch, Defined[input] ∧ (¬isBruch), (¬isDecimal) ∧ NoMinus ∧ Defined[input2] ∧ Defined[input3]]) → clickableBtnValidate
  61. Segment(Midpoint[Corner[txtZiehMich, 1], Corner[txtZiehMich, 4]] + (0.1 * Vector[Midpoint[Corner[txtZiehMich, 1], Corner[txtZiehMich, 4]], StartPQ1]), Midpoint[Corner[txtZiehMich, 1], Corner[txtZiehMich, 4]] + (0.6 * Vector[Midpoint[Corner[txtZiehMich, 1], Corner[txtZiehMich, 4]], StartPQ1])) → segZiehMich
  62. Text((("\textsf{\bold{" * If[darstellung ≟ 1, txtD1, darstellung ≟ 2, txtD2, txtD3]) * "}}"), PosSolution + (If[selectedNumber < 0, -0.166, 0], -0.75), false, true, 0, -1) → txtSolution1
  63. If(abs(selectedNumber) < 1, (txtD2 * ""), ((txtD2 * " = ") * txtD3)) → txtSolutionAlternative
  64. Textfield() → InputBoxEx11
  65. Textfield() → InputBoxEx12
  66. Textfield() → InputBoxEx13
  67. Textfield() → InputBoxEx21
  68. Textfield() → InputBoxEx22
  69. Textfield() → InputBoxEx23
  70. Sequence(((AllSignsTxtList(k) * If[k ∈ AllIntegersIndexList, ("" * abs(AllNumbersList(k))), (((((If[AllNumeratorsList2(k) ≠ 0, If[AllNumbersList(k) < 0, If[abs(ceil(AllNumbersList(k))) ≠ 0, (("" * abs(ceil(AllNumbersList(k)))) * "\:"), ""], If[abs(floor(AllNumbersList(k))) ≠ 0, (("" * abs(floor(AllNumbersList(k)))) * "\:"), ""]], ""] * "\dfrac{") * 5) * "}{") * 10) * "}")]) * "\vphantom{\dfrac{1}{2}}"), k, 1, numberOfNumbers) → AllTxtD35
  71. KeepIf(a ≠ "", a, Sequence[Text[If[Defined[IndexOf[AllNumbersList(k), CapNumbersList]], (("\textsf{" * AllTxtD35(k)) * "}"), ""], AllPointsList(k) + (If[AllNumbersList(k) < 0, -0.166, 0], (-segLength1)), false, true, 0, -1], k, 1, numberOfNumbers]) → Txt05
  72. Sequence(((AllSignsTxtList(k) * If[k ∈ AllIntegersIndexList, ("" * abs(AllNumbersList(k))), (((((If[AllNumeratorsList2(k) ≠ 0, If[AllNumbersList(k) < 0, If[abs(ceil(AllNumbersList(k))) ≠ 0, (("" * abs(ceil(AllNumbersList(k)))) * "\:"), ""], If[abs(floor(AllNumbersList(k))) ≠ 0, (("" * abs(floor(AllNumbersList(k)))) * "\:"), ""]]] * "\dfrac{") * AllNumeratorsList2(k)) * "}{") * AllDenominatorsList(k)) * "}")]) * "\vphantom{\dfrac{1}{2}}"), k, 1, numberOfNumbers) → AllTxtD3
  73. Text((("\textsf{\bold{\textcolor{black}{" * If[CaseZ ≟ 1 ∨ CaseZ ≟ 2, If[CaseAll(counter) ∈ {1, 2}, "0,5", "\frac{1}{2}"], CaseZ ≟ 3, "\frac{1}{3}", CaseZ ≟ 4, If[CaseAll(counter) ∈ {1, 2}, "0,25", "\frac{1}{4}"], CaseZ ≟ 5, If[CaseAll(counter) ∈ {1, 2}, "0,2", "\frac{1}{5}"], CaseZ ≟ 6, If[CaseAll(counter) ∈ {1, 2}, "0,1", "\frac{1}{10}"], CaseZ ≟ 7, "\frac{1}{6}", "\frac{1}{8}"]) * "}}}"), Midpoint[segHint] + (0, segLength1 + 0.45), false, true, 0, 0) → CapHint
  74. If(CaseQ ≟ 1, markedNumber ≟ (-selectedNumber), correctNumber ∧ (¬correctSign) ∨ input ≟ (-selectedNumber)) → isTypicalError
  75. Text((("\textsf{\bold{{" * If[darstellung ≟ 1, txtD1, darstellung ≟ 2, txtD2, txtD3]) * "}}}"), PQ1 + (If[selectedNumber < 0, -0.166, 0], segLength1 + 0), false, true, 0, 1) → CapPQ1
  76. KeepIf(a > 0, a, Sequence[Segment[PStart + ((k * disP), If[Defined[IndexOf[AllNumbersList(k + 1), MarkNumbersList]], If[AllNumbersList(k + 1) ≟ 0, segLength0, IsInteger[AllNumbersList(k + 1)], segLength1, segLength2], 0]), PStart + ((k * disP), (-If[Defined[IndexOf[AllNumbersList(k + 1), MarkNumbersList]], If[AllNumbersList(k + 1) ≟ 0, segLength0, IsInteger[AllNumbersList(k + 1)], segLength1, segLength2], 0]))], k, 0, numberOfNumbers - 1]) → SegMarkList

AI Drawing Prompt Reference

Create an interactive learning worksheet showing a horizontal number line with rational numbers marked as tick marks, displaying both integer and fractional values above the line (integers as regular numbers, fractions in mathematical notation). Below the number line is a list of selectable rational numbers for student practice. Include a text input field on the left side for answers, with a validation button and score counter below. Add a coordinate grid in the background for reference. The overall layout extends horizontally from left to right, with numbers ranging from negative to positive values continuously along the axis.
The prompt above was compiled from the original drawing commands and is for reference only.