使用面积模型估算小数乘积

GeoGebra 命令及参数

1. Shuffle(Join[Sequence[{A, A, A, A, A, A, A, A, A, A}, A, 2, 9]]) → randomIntegers, {3, 3, 4, 3, 2, 2, 6, 7, 3, 5, 4, 8, 6, 7, 5, 9, 7, 9, 4, 6, 8, 9, 9, 3, 4, 7, 5, 6, 8, 4, 6, 5, 9, 7, 8, 5, 4, 7, 7, 6, 4, 7, 2, 8, 3, 4, 9, 6, 9, 3, 2, 5, 8, 7, 5, 6, 8, 7, 4, 2, 2, 6, 3, 2, 3, 8, 9, 8, 4, 5, 9, 5, 9, 8, 2, 2, 2, 6, 3, 5}
2. Shuffle(Join[Sequence[{A, A, A, A, A, A, A, A, A, A}, A, 2, 9]]) → randomTenths, {8, 6, 2, 7, 5, 7, 8, 2, 6, 3, 2, 9, 4, 4, 8, 5, 8, 4, 7, 6, 4, 8, 8, 3, 7, 2, 2, 6, 2, 6, 9, 4, 7, 2, 7, 6, 3, 9, 5, 9, 9, 4, 8, 3, 5, 3, 7, 4, 8, 2, 9, 5, 9, 3, 3, 5, 7, 3, 3, 6, 4, 4, 9, 9, 8, 3, 8, 9, 5, 7, 6, 6, 5, 7, 2, 5, 6, 5, 4, 2}
3. If(IsInteger[studentA] ∧ IsInteger[studentB], (studentA * studentB), NaN) → studentProduct
4. Mod(1 + (2 * countQuestion), Length[randomIntegers] - 2) → currentIndex
5. If(showsolution ∨ showanswer, numBRounded, studentB) → displayB
6. If(showsolution ∨ showanswer, numARounded, studentA) → displayA
7. Polygon({AnchorStudent, AnchorStudent + (studentA, 0), AnchorStudent + (studentA, studentB), AnchorStudent + (0, studentB)}) → displayEstimate
8. Element(randomTenths, Mod[countQuestion, 15] + 1) → randomNum2
9. Element(randomIntegers, Mod[countQuestion, 20] + 1) → randomNum1
10. Polygon({AnchorQuestion, AnchorQuestion + (numberA, 0), AnchorQuestion + (numberA, numberB), AnchorQuestion + (0, numberB)}) → displayArea
11. Textfield(studentAns) → aInput
12. If(isTypicalError1, 1, If[isTypicalError, 2, 2]) → errorNumber
13. Sequence(Segment[Vertex[displayArea, 1] + (0, A), Vertex[displayArea, 2] + (0, A)], A, 0, numberB) → gridHoriz
14. Sequence(Segment[Vertex[displayArea, 1] + (A, 0), Vertex[displayArea, 4] + (A, 0)], A, 0, numberA) → gridVert
15. Polygon({AnchorSample, AnchorSample + (numARounded, 0), AnchorSample + (numARounded, numBRounded), AnchorSample + (0, numBRounded)}) → displaySample
16. Sequence(Segment[Vertex[displaySample, 1] + (0, A), Vertex[displaySample, 2] + (0, A)], A, 0, numBRounded) → gridSampleHorizontal
17. Sequence(Segment[Vertex[displaySample, 1] + (A, 0), Vertex[displaySample, 4] + (A, 0)], A, 0, numARounded) → gridSampleVertical
18. Text("Typical\\Estimate", Midpoint[Vertex[displaySample, 1], Vertex[displaySample, 2]] + (0, -0.2), true, true, 0, -1) → lblSample
19. Text("Your\\Estimate", Midpoint[Vertex[displayEstimate, 1], Vertex[displayEstimate, 2]] + (0, -0.2), true, true, 0, -1) → lblEstimate
20. Zip(Text[("" * A), Anchor + (B, 0), true, true, 0, 0], A, {("" * numberA), "~\times~", ("" * numberB), If[initializedA ∨ initializedB, "\approx", "="], ("" * If[initializedA, studentA, numberA]), "~\times~", ("" * If[initializedB, studentB, numberB]), "=", ("" * If[initialized, "", NaN])}, B, (1.3 * {1, 2, 3, 4.2, 5.4, 6.4, 7.4, 8.4, 9.4})) → textExpression
21. Sequence(Segment[Vertex[displayEstimate, 1] + (0, A), Vertex[displayEstimate, 2] + (0, A)], A, 0, studentB) → gridEstimateHorizontal
22. Sequence(Segment[Vertex[displayEstimate, 1] + (A, 0), Vertex[displayEstimate, 4] + (A, 0)], A, 0, studentA) → gridEstimateVertical
23. PolyLine({AnchorQuestion + (numberA, 0), AnchorQuestion + (numberA, numberB), AnchorQuestion + (0, numberB)}) → exactEdges
24. Text("Exact", Midpoint[Vertex[displayArea, 1], Vertex[displayArea, 2]] + (0, -0.2), true, true, 0, -1) → lblExact