MathPlotAI Logo MathPlotAI

Integer Subtraction Operations and Geometric Demonstration

Integer Subtraction Operations and Geometric Demonstration
Loading the math board and drawing, please wait…
2025-04-29 01:29
In collections Erstes Rechnen mit ganzen Zahlen
This example demonstrates integer subtraction operations in geometric contexts. The key mathematical concepts involve integer subtraction, utilizing Geogebra commands such as SelectedIndex, If, Point, etc. Suitable for students in grades 7-8 to practice integer subtraction and geometric constructions.

GeoGebra Commands & Parameters

  1. SelectedIndex(DropDown3) → input3
  2. SelectedIndex(DropDown1) → input1
  3. If(plus, numA + numB, numA - numB) → sol2
  4. Point(Line[Start, xAxis]) → Ende
  5. Sequence(Start + (m * (Distance[Start, Ende] / (nummax - nummin), 0)), m, 0, nummax - nummin) → listPoints
  6. If(plus, listPoints(nummitte + numA + numB), listPoints(nummitte + numA - numB)) → HnumB
  7. Sequence(Start + ((2 * m) * (Distance[Start, Ende] / (nummax - nummin), 0)), m, 0, (nummax - nummin) / 2) → listPointsText
  8. Sequence(true, m, 1, maxstep) → listfixed
  9. Textfield(input3) → Eingabefeld1
  10. Textfield(input2) → Eingabefeld2
  11. Zip(Segment[P + (0, (-linesize)), P + (0, linesize)], P, listPoints) → listLines
  12. 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
  13. Segment(Dilate[Start, 1.05, Midpoint[Start, Ende]], Dilate[Ende, 1.05, Midpoint[Start, Ende]]) → line
  14. Midpoint(Start, Ende) → Mitte
  15. Join({Zip[Text[(("\textsf{" * m) * " }"), P + (0.08, -0.9), true, true, 0], m, Sequence[0, nummax, 2], P, Sequence[listPointsText(n), n, nummitte / 2, nummitte + nummax]], Zip[Text[((("\textsf{" * "--") * abs(m)) * " }"), P + (0, -0.9), true, true, 0], m, Sequence[nummin, -1, 2], P, listPointsText]}) → listText
  16. Segment(HA, H1) → linehase
  17. If(sbrechts, SB + (0.4, 1.7), SB + (-4.5, 1.7)) → SBP3
  18. Point(Line[Hase1, xAxis]) → Hase2
  19. 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
  20. Join({Sequence[Segment[Corner[4] + (RasterPixMat * ((k * RasterStepXY), 0)), Corner[4] + (RasterPixMat * ((k * RasterStepXY), RasterMaxY))], k, RasterMaxX / RasterStepXY, RasterMaxX / RasterStepXY], Sequence[Segment[Corner[4] + (RasterPixMat * (0, (k * RasterStepXY))), Corner[4] + (RasterPixMat * (RasterMaxX, (k * RasterStepXY)))], k, RasterMaxY / RasterStepXY, RasterMaxY / RasterStepXY]}) → RasterAussen
  21. If(numB < 2, 6, 10 / Distance[HnumA, HnumB]) → speed3
  22. If(sbrechts, SB + (1.1, 0.2), SB + (-4.3, 0.2)) → PosSol
  23. If(sbrechts, SB + (0.4, 1.35), SB + (-3.5, 1.35)) → SBP1
  24. If(sbrechts, SB + (0.4, 1.35), SB + (-7.45, 1.35)) → SBP2
  25. Mirror(sb1rechts, Line[SB, yAxis]) → sb1links
  26. Mirror(sb2rechts, Line[SB, yAxis]) → sb2links
  27. Mirror(sb4rechts, Line[SB, yAxis]) → sb4links