自然数中的平方根:几何与数学的结合
几何画板及绘图内容加载中,请稍等……
这个范例展示了自然数中平方根的几何表示,揭示了平方根与自然数之间的关系。核心数学概念包括平方根、实数和几何作图。作图要点涉及使用GeoGebra命令如Sequence、Element、Textfield、Join、If、Segment、Text、PointIn、Corner、Circle、Point、Translate等对象。适合初中或高中数学学习,用于理解平方根的几何意义和作图技巧。
GeoGebra 命令及参数
Sequence(Random[1, 10], i, 1, 10) → randomNumbers, {5, 1, 7, 1, 6, 8, 9, 8, 6, 6}Element(randomNumbers, Mod[questionCount, Length[randomNumbers]] + 1) → randomNumberTextfield(input) → inputBoxJoin({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]}) → RasterStreckenJoin({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]}) → RasterBeschriftungSequence(Sequence[Corner[4] + (RasterPixMat * ((k * RasterStepXY), (m * RasterStepXY))), k, 0, RasterMaxX / RasterStepXY], m, 0, RasterMaxY / RasterStepXY) → RasterPunkteIf(step ≟ 3, 7, step ≟ 4, 3, step ≟ 5, 40, step ≟ 6, 10, 28) → actualSqrtSegment(Origin + ((minX / stepX * disX) - edgeAxisX, 0), Origin + ((maxX / stepX * disX) + edgeAxisX, 0)) → segAxisXSequence(m, m, minX, maxX, stepX) → numbersXAxisSequence(Origin + ((minX / stepX * disX), 0) + (k * (disX, 0)), k, 0, maxX / stepX - minX / stepX) → PointsXAxisSequence(Segment[PointsXAxis(k) + (0, (-disSeg)), PointsXAxis(k) + (0, disSeg)], k, 1, Length[PointsXAxis]) → segXAxisSequence(Origin + ((sqrt(k) * disX / stepX), 0), k, 1, 16) → PointsSqrtXAxisSequence(Text[((("\textsf{\(" * If[numbersXAxis(k) ≥ 0, "\phantom{\(-\)}", ""]) * If[Element[numbersXAxis, k] ≟ 0, "", ("" * Element[numbersXAxis, k])]) * "\)}"), PointsXAxis(k) + (-0.15, (-disSeg)), false, true, 0, -1], k, 1, (maxX - minX) / stepX + 1) → CapXIf(step ≟ 2, ListSqrtShow, {false, false, false, false, false, false, false, false, false, false, false, false, false, false, false, false}) → ListSqrtColorText((("\textsf{\footnotesize{" * If[ListSqrtColor(2), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{2}}}}}"), PointsSqrtXAxis(2) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt02Text((("\textsf{\footnotesize{" * If[ListSqrtColor(5), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{5}}}}}"), PointsSqrtXAxis(5) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt05Text((("\textsf{\footnotesize{" * If[ListSqrtColor(6), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{6}}}}}"), PointsSqrtXAxis(6) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt06Text((("\textsf{\footnotesize{" * If[ListSqrtColor(8), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{8}}}}}"), PointsSqrtXAxis(8) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt08Text((("\textsf{\footnotesize{" * If[ListSqrtColor(10), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{10}}}}}"), PointsSqrtXAxis(10) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt10Text((("\textsf{\footnotesize{" * If[ListSqrtColor(11), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{11}}}}}"), PointsSqrtXAxis(11) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt11Text((("\textsf{\footnotesize{" * If[ListSqrtColor(12), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{12}}}}}"), PointsSqrtXAxis(12) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt12Text((("\textsf{\footnotesize{" * If[ListSqrtColor(13), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{13}}}}}"), PointsSqrtXAxis(13) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt13Text((("\textsf{\footnotesize{" * If[ListSqrtColor(14), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{14}}}}}"), PointsSqrtXAxis(14) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt14Text((("\textsf{\footnotesize{" * If[ListSqrtColor(15), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{15}}}}}"), PointsSqrtXAxis(15) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt15Textfield(input011) → InputBox011Textfield(input012) → InputBox012Textfield(input013) → InputBox013Textfield(input014) → InputBox014Textfield(input031) → InputBox031Textfield(input032) → InputBox032Textfield(input041) → InputBox041Textfield(input042) → InputBox042Textfield(input043) → InputBox043Textfield(input044) → InputBox044Textfield(input051) → InputBox051Textfield(input052) → InputBox052Textfield(input053) → InputBox053Textfield(input054) → InputBox054Textfield(input055) → InputBox055Textfield(input056) → InputBox056Textfield(input057) → InputBox057Textfield(input058) → InputBox058Textfield(input059) → InputBox059Textfield(input061) → InputBox061Textfield(input062) → InputBox062Textfield(input063) → InputBox063Textfield(input064) → InputBox064Textfield(input071) → InputBox071Textfield(input072) → InputBox072Textfield(input073) → InputBox073Textfield(input074) → InputBox074PointIn(polyAxis(1)) → PosP011PointIn(polyAxis(1)) → PosP012PointIn(polyAxis(1)) → PosP013PointIn(polyAxis(1)) → PosP014Corner(imgLupe, 3) → PosImgLupe3Circle(MPLupe, radiusLupe) → circleLupeText("\textsf{\bold{Zieh mich!}}", Midpoint[PosImgLupe2, PosImgLupe3] + (-0.35, 0), false, true, 1, 0) → CapZiehMichLupeSequence(If[ListSqrtShow(k) ∧ (¬(k ∈ {1, 4, 9, 16})), PointsSqrtXAxis(k)], k, 1, 16) → Points02Circle(PosP011, radiusFB01) → circleFB011Circle(PosP012, radiusFB01) → circleFB012Circle(PosP013, radiusFB01) → circleFB013Circle(PosP014, radiusFB01) → circleFB014Text((("\textsf{\sqrt{1}" * If[checkBox01, " = \phantom{ \:}", ""]) * "}"), PosP011 + (-0.12, 0.15), false, true, 0, 1) → Cap011Text((("\textsf{\sqrt{4}" * If[checkBox01, " = \phantom{ \:}", ""]) * "}"), PosP012 + (-0.12, 0.15), false, true, 0, 1) → Cap012Text((("\textsf{\sqrt{9}" * If[checkBox01, " = \phantom{ \:}", ""]) * "}"), PosP013 + (-0.12, 0.15), false, true, 0, 1) → Cap013Text((("\textsf{\sqrt{16}" * If[checkBox01, " = \phantom{ \:}", ""]) * "}"), PosP014 + (-0.12, 0.15), false, true, 0, 1) → Cap014If(step ≟ 1, PosP011 ≟ PointsXAxis(1) ∧ PosP012 ≟ PointsXAxis(2) ∧ PosP013 ≟ PointsXAxis(3) ∧ PosP014 ≟ PointsXAxis(4), step ≟ 6, correct061 ∧ correct062, true, step ≟ 2, ListSqrtShow ≟ {true, true, true, true, true, true, true, true, true, true, true, true, true, true, true, true}, step ≟ 3, correct031 ∧ correct032, step ≟ 4, correct041 ∧ correct042 ∧ correct043 ∧ correct044, step ≟ 5, correct051 ∧ correct052) → clickableBtnNextText((("\textsf{\footnotesize{" * If[step ≟ 3, "\bold{\textcolor{db6114}{", ListSqrtColor(7), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{7}}}}}"), PointsSqrtXAxis(7) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt07Text((("\textsf{\footnotesize{" * If[step ≟ 4, "\bold{\textcolor{db6114}{", ListSqrtColor(3), (("\bold{\textcolor{" * colorSqrt) * "}{"), "{{"]) * "\sqrt{3}}}}}"), PointsSqrtXAxis(3) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt03Circle(PointsXAxis(2) + (0, (-disSeg) - 0.375), radiusBG) → circleBG02Circle(PointsXAxis(3) + (0, (-disSeg) - 0.375), radiusBG) → circleBG03Circle(PointsXAxis(4) + (0, (-disSeg) - 0.375), radiusBG) → circleBG04Circle(PointsXAxis(1) + (0, (-disSeg) - 0.375), radiusBG) → circleBG01Point(Line[PosAxisStart, yAxis]) → PosAxisStart05Translate(segXAxis, Vector[PosAxisStart, PosAxisStart05]) → segXAxis05Translate(segAxisX, Vector[PosAxisStart, PosAxisStart05]) → segAxisX05Translate(PointsXAxis, Vector[PosAxisStart, PosAxisStart05]) → PointsXAxis05Text((("\textsf{\footnotesize{\sqrt{" * If[step ≟ 5, 25, step ≟ 6, 4, 16]) * "}}}"), PointsXAxis05(1) + (-0.1, disSeg), false, true, 0, 1) → txtAxis051Text((("\textsf{\footnotesize{\sqrt{" * If[step ≟ 5, 36, step ≟ 6, 9, 25]) * "}}}"), PointsXAxis05(2) + (-0.1, disSeg), false, true, 0, 1) → txtAxis052Text((("\textsf{\footnotesize{\sqrt{" * If[step ≟ 5, 49, step ≟ 6, 16, 36]) * "}}}"), PointsXAxis05(3) + (-0.1, disSeg), false, true, 0, 1) → txtAxis053Text((("\textsf{\footnotesize{\sqrt{" * If[step ≟ 5, 64, step ≟ 6, 25, 49]) * "}}}"), PointsXAxis05(4) + (-0.1, disSeg), false, true, 0, 1) → txtAxis054Text((("\textsf{\footnotesize{\sqrt{" * actualSqrt) * "}}}"), Point05 + (-0.1, disSeg), false, true, 0, 1) → txtAxis055Text((("\textsf{\footnotesize{" * If[ListSqrtColor(1), "\bold{\textcolor{black}{", "{{"]) * "\sqrt{1}}}}}"), PointsSqrtXAxis(1) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt01Text((("\textsf{\footnotesize{" * If[ListSqrtColor(4), "\bold{\textcolor{black}{", "{{"]) * "\sqrt{4}}}}}"), PointsSqrtXAxis(4) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt04Text((("\textsf{\footnotesize{" * If[ListSqrtColor(9), "\bold{\textcolor{black}{", "{{"]) * "\sqrt{9}}}}}"), PointsSqrtXAxis(9) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt09Text((("\textsf{\footnotesize{" * If[ListSqrtColor(16), "\bold{\textcolor{black}{", "{{"]) * "\sqrt{16}}}}}"), PointsSqrtXAxis(16) + (-0.1, disSeg), false, true, 0, 1) → txtSqrt16Text((("\textsf{{\bold{\textcolor{black}{" * If[step ≟ 5 ∧ correct052 ∨ step ≟ 6 ∧ correct062 ∨ step ≟ 7 ∧ correct072, (ceil(sqrt(actualSqrt)) * ""), "?"]) * "}}}}"), PointsXAxis05(3) + (0, (-disSeg)), false, true, 0, -1) → txtAxis057Text((("\textsf{{\bold{\textcolor{black}{" * If[step ≟ 5 ∧ correct051 ∨ step ≟ 6 ∧ correct061 ∨ step ≟ 7 ∧ correct071, (floor(sqrt(actualSqrt)) * ""), "?"]) * "}}}}"), PointsXAxis05(2) + (0, (-disSeg)), false, true, 0, -1) → txtAxis056If(step < 5, (2.75, 6.5), (3.75, 7.1)) → PosHintFitIf(step < 5, (5.7, 6.5), (5.7, 7.1)) → PosHintNaturalIf(step ≟ 1, (6.55, 3.6), step ≟ 4 ∧ correct041 ∧ correct042, (6.85, 2.75), (12.6, 8.25)) → PosBtnShowSolution