积极 AI Logo 积极 AI

整数减法运算与图形演示

整数减法运算与图形演示
几何画板及绘图内容加载中，请稍等……
2025-04-29 01:29
所属专题 Erstes Rechnen mit ganzen Zahlen
本范例演示整数减法运算在几何图形中的应用。核心数学概念为整数减法运算，涉及Geogebra命令如SelectedIndex、If、Point等。适合小学7-8年级学生，用于练习整数减法运算和几何作图。

GeoGebra 命令及参数

  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