负数乘法与实际应用：通过步行场景理解负数乘法规则

GeoGebra 命令及参数

1. Shuffle(Sequence[-10, 10] \ {0, 1, -1}) → randomList1, {-6, -3, 7, 8, 2, -5, 6, -2, -7, -4, 5, 10, 4, -10, -8, 3, 9, -9}
2. Element(randomList1, Mod[countQuestion, Length[randomList1]] + 1) → randomNum1
3. Shuffle(Sequence[-5, 5] \ {-1, 0, 1, randomNum1, (-randomNum1)}) → randomList2, {4, 3, -4, -5, 5, 2, -2, -3}
4. Element(randomList2, Mod[countQuestion, Length[randomList2]] + 1) → randomNum2
5. If(randomNum1 ≥ 0, If[randomNum2 ≥ 0, 1, 3], If[randomNum2 ≥ 0, 2, 4]) → correctText
6. If(randomNum1 ≤ 0, ((-wid), 0.05), (wid, 0.05)) → A
7. Textfield(input1) → InputBox1
8. Textfield(input2) → InputBox2
9. Corner(5) → AppSize
10. Sequence(16 + (ii * (167 + 8)), ii, 0, 3) → xoptions, {16, 191, 366, 541}
11. Sequence((ii, 0), ii, -5, 5) → Points
12. Sequence((-maxX) + (maxX / 5 * ii), ii, 0, 10) → scale, {-30, -24, -18, -12, -6, 0, 6, 12, 18, 24, 30}
13. Translate(A, (0, hei)) → A'
14. If(randomNum1 ≤ 0, E, F) → C1
15. If(randomNum1 ≤ 0, F, E) → C2
16. Translate(C1, Vector[A, A']) → C3
17. If(slideToAnimate ≟ 0, 1, Mod[abs(slideToAnimate), 4] + 2) → numImg
18. Translate(If[randomNum1 ≤ 0, A, B], ((E - If[randomNum1 ≤ 0, A, B]) * timer)) → C
19. If(randomNum1 ≤ 0, C, D) → D1
20. If(randomNum1 ≤ 0, D, C) → D2
21. If(timer ≟ 1 ∨ timer ≟ 0, 1, Mod[(timer * 10), 4] + 2) → numImg2
22. Zip(Text[(If[AA ≥ 0, "\hspace{7}", ""] * AA), BB - (0, 0.02), true, true, 0, -1], AA, scale, BB, Points) → l1
23. Segment((-5.5, 0), (5.5, 0)) → numberLine
24. Text("\textsf{ft.}", (5.85, -0.2), true, true, -1, 0) → text2
25. Translate(D1, Vector[A, A']) → D3
26. Sort(Sequence[(((ii * lengtVec) * sgn((randomNum1 * randomNum2))), -0.5), ii, 0, abs(randomNum2)]) → vectorEndpoints
27. Zip(Vector[If[randomNum1 ≤ 0, QQ, PP], If[randomNum1 ≤ 0, PP, QQ]], PP, vectorEndpoints, QQ, Take[vectorEndpoints, 2]) → vectorsList
28. Text((((("$" * abs(randomNum2)) * "\text{ seconds, }") * positiveProd) * "\text{ feet}$"), Midpoint[vectorEndpoints(1), vectorEndpoints(-1)], true, true, 0, -1) → text4
29. Text((If[slideToAnimate ≥ 0, "\hspace{7}", ""] * slideToAnimate), Midpoint[C1, C2] + (0, (10 / 9 * y(C3))), true, true, 0, 0) → text1
30. Translate(hGuideLine, Vector[(Vector[Corner[4], Corner[1]] / 500 * 16)]) → hGuideLine'
31. onboardingTextOffset(Corner[onboardingText_{1}, 1], Corner[onboardingText_{1}, 3], onboardingCase_{1}, Corner[1], Corner[3], Corner[5]) → OnboardingTextOffset_{1}
32. circlePixels((0.05, 0), 9 + (7 * pulsing), Corner[1], Corner[3], Corner[5]) → pulsingObject