MathPlotAI Logo MathPlotAI

Seifenblasen-Quiz: Comparing Rational Numbers with Graphical Representation

Seifenblasen-Quiz: Comparing Rational Numbers with Graphical Representation
Loading the math board and drawing, please wait…
2025-06-04 17:41
In collections Ordnen und Vergleichen von rationalen Zahlen
This example demonstrates the comparison and ordering of rational numbers through the Seifenblasen (soap bubble) game. Key mathematical concepts include comparing rational numbers, representing them on a number line, and graphical visualization. Construction involves GeoGebra commands such as Shuffle, Spline, Textfield, Polygon, and others to create dynamic graphics and interactive elements. Suita

GeoGebra Commands & Parameters

  1. Shuffle({1, 2, 3, 4, 5, 6, 7, 8, 9, 10}) → ExNumList, {4, 2, 9, 6, 3, 10, 5, 8, 7, 1}
  2. Spline({Spline4Start, Spline4Mid, Spline4End}, 3) → Spline4
  3. Spline({Spline3Start, Spline3Mid, Spline3End}, 3) → d
  4. Spline({Spline2Start, Spline2Mid, Spline2End}, 3) → b
  5. Spline({Spline1Start, Spline1Mid, Spline1End}, 3) → a
  6. Textfield(input1) → InputBox1
  7. Textfield(input2) → InputBox2
  8. Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback) → rectangleCorrect, rectangleCorrectS3, rectangleCorrectS4, rectangleCorrectS2, rectangleCorrectS1
  9. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForX, {9, 7, 4, 1, 2, 7, 2, 3, 3, 5, 6, 2, 5, 1, 2, 0, 6, 7, 2, 7, 3, 6, 9, 8, 6, 3, 9, 3, 7, 8, 8, 5, 10, 2, 0, 8, 1, 0, 6, 8, 8, 2, 7, 9, 0, 9, 5, 1, 3, 10, 3, 6, 3, 1, 9, 4, 0, 10, 8, 5, 4, 6, 5, 3, 1, 5, 7, 2, 2, 6, 8, 2, 0, 2, 1, 6, 8, 5, 2, 2, 6, 4, 3, 10, 5, 2, 2, 8, 9, 1, 2, 6, 1, 2, 3, 2, 1, 9, 2, 6}
  10. Element(randomNosForX, Mod[questionCount, 100] + 1) → numX
  11. Shuffle(Sequence[Random[0, 10], i, 1, 100]) → randomNosForY, {1, 6, 6, 6, 5, 3, 8, 10, 7, 6, 2, 5, 10, 10, 8, 5, 1, 9, 10, 10, 3, 5, 7, 3, 3, 8, 6, 5, 9, 9, 0, 4, 8, 5, 0, 10, 5, 2, 0, 9, 2, 9, 4, 4, 8, 7, 2, 0, 6, 10, 9, 6, 8, 10, 4, 7, 2, 4, 3, 5, 9, 10, 0, 8, 5, 10, 10, 9, 6, 3, 0, 10, 10, 3, 10, 3, 10, 2, 8, 5, 2, 6, 9, 7, 6, 10, 5, 0, 10, 1, 2, 10, 5, 1, 0, 5, 9, 3, 4, 1}
  12. Element(randomNosForY, Mod[questionCount, 100] + 1) → numY
  13. Append(true, Sequence[If[randomNosForX(i) ≟ randomNosForX(i - 1), false, true], i, 2, 100]) → stayX
  14. Append(true, Sequence[If[randomNosForY(i) ≟ randomNosForY(i - 1), false, true], i, 2, 100]) → stayY
  15. Remove(Sequence[If[stayX(i), randomNosForX(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForXwithoutRepeat
  16. Remove(Sequence[If[stayY(i), randomNosForY(i), 0], i, 1, 100], Sequence[0, i, 1, 100]) → randomNosForYwithoutRepeat
  17. Element(randomNosForXwithoutRepeat, Mod[questionCount, Length[randomNosForXwithoutRepeat]] + 1) → numXwithoutRepeat
  18. Element(randomNosForYwithoutRepeat, Mod[questionCount, Length[randomNosForYwithoutRepeat]] + 1) → numYwithoutRepeat
  19. Circle(MaschineBtnPos, radiusBTN) → c
  20. Text(Text1, MC1TextPos, false, true, 0, 0) → Text6
  21. Text(Text2, MC2TextPos, false, true, 0, 0) → Text7
  22. Text(Text3, MC3TextPos, false, true, 0, 0) → Text8
  23. Text(Text4, MC4TextPos, false, true, 0, 0) → Text9
  24. Text("\textsf{\bold{Klick mich!}}", MaschineBtnPos + (-0.25, 1.25), false, true, 1, 0) → CapClickMe
  25. Segment(Midpoint[Corner[CapClickMe, 1], Corner[CapClickMe, 2]], Midpoint[Corner[CapClickMe, 1], Corner[CapClickMe, 2]] + (0.5 * Vector[Midpoint[Corner[CapClickMe, 1], Corner[CapClickMe, 2]], MaschineBtnPos])) → segClickMe