求解线性方程组图形法

GeoGebra 命令及参数

1. Shuffle(Sequence[n, n, -4, 4, 1] \ {0}) → coordPList, {2, 4, -4, -1, -3, 3, -2, 1}
2. Element(coordPList, Mod[xPCount, Length[coordPList]] + 1) → xP
3. Element(coordPList, Mod[yPCount, Length[coordPList]] + 1) → yP
4. Shuffle(Sequence[n, n, If[xP < 0, -8, yP + 1], If[xP > 0, 8, yP - 1]] \ {0, xP + yP}) → allQ2, {-3, -5, -4, -7, -6, -8}
5. Shuffle(Sequence[n, n, If[xP > 0, -8, yP + 1], If[xP < 0, 8, yP - 1]] \ {0, yP - xP}) → allQ1, {6, 1, 7, 5, 4, 3, 2, 8}
6. Element(allQ2, Mod[q2Count, Length[allQ2]] + 1) → q2
7. Line(P, (0, q2)) → r2
8. Slope(r2) → m2
9. Denominator(m2) → denM2
10. Element(allQ1, Mod[q1Count, Length[allQ1]] + 1) → q1
11. Line(P, (0, q1)) → r1
12. Slope(r1) → m1
13. Denominator(m1) → denM1
14. Numerator(m2) → numM2
15. Numerator(m1) → numM1
16. Corner(5) → AppSize
17. Vector(P + (4, 0), P + (1, 0)) → vInstr
18. Join(Sequence[Sequence[(j, k), j, -10, 10, 0.5], k, -10, 10, 0.5]) → megaGrid
19. Point(megaGrid) → S1
20. Point(megaGrid) → S2
21. Line(S1, S2) → stud1
22. Point(megaGrid) → S3
23. Point(megaGrid) → S4
24. Line(S3, S4) → stud2
25. If(¬correct1, Segment[A, B], Segment[A, C]) → constArrow
26. If(¬correct1, Segment[D, E], Segment[D, F]) → slopeArrow
27. Polygon((-10.9, -10.9), (10.9, -10.9), (10.9, 10.9), (-10.9, 10.9)) → peep, f, g, h, i
28. Segment((-10.8, 0), (10.8, 0)) → axisX
29. Segment((0, -10.8), (0, 10.8)) → axisY