用图形定位线性方程组解：验证交点满足两条直线

GeoGebra 命令及参数

1. Shuffle(Join[Sequence[Sequence[(j, k), j, -7, 7, 1], k, -7, 7, 1]]) → allP, {(2, 0), (4, -7), (0, 7), (1, 2), (2, -7), (-7, -6), (-4, 6), (6, -7), (-5, -5), (-3, -6), (-2, -3), (-7, -5), (3, 3), (-5, 6), (-1, 4), (-4, -1), (5, -3), (-7, 0), (2, 5), (2, -6), (-4, -2), (3, 5), (7, -1), (6, 3), (-6, -2), (-6, -7), (1, -5), (5, 6), (1, 6), (-1, -3), (2, 2), (-3, -4), (1, -1), (-2, 3), (4, 7), (-1, 2), (-6, 3), (4, -4), (-7, 6), (-6, 0), (-7, -7), (-4, 2), (-5, -6), (-3, 7), (-5, 3), (3, 6), (2, -4), (-1, -7), (5, 2), (5, -7), (6, -4), (2, -3), (3, -5), (4, -3), (-5, 7), (7, 0), (6, 6), (0, 5), (-7, 3), (7, -6), (-3, -1), (-7, 5), (0, 0), (4, 4), (1, 1), (0, 3), (6, 0), (-1, -5), (5, 1), (-6, -4), (6, 4), (2, 4), (6, 7), (-1, 3), (4, 6), (7, 6), (1, 0), (-6, -1), (-3, 1), (7, 2), (4, 3), (1, -3), (3, -2), (-6, -6), (-6, -3), (-1, 5), (-6, 5), (6, 5), (6, -1), (-6, 6), (-2, 6), (-6, 7), (2, -2), (-6, 4), (-2, -5), (-4, 0), (-4, -6), (-2, 7), (-3, -3), (1, 4), (-5, -7), (-4, 5), (4, -1), (-3, 5), (-2, 5), (-2, -4), (-4, 3), (0, 2), (-7, 4), (7, -2), (5, 7), (-2, 4), (4, -5), (1, 7), (-7, -3), (-3, -5), (0, -6), (3, -1), (-6, 2), (7, 7), (5, -2), (-1, -6), (1, -6), (6, -6), (-5, -2), (6, 2), (-1, 7), (5, -1), (7, 1), (7, -5), (-2, -2), (-7, -2), (-4, 1), (5, -4), (3, 4), (5, -6), (-6, 1), (-1, -1), (-7, 1), (-5, -4), (0, 4), (-5, 2), (5, 0), (-1, 6), (3, -4), (-4, -7), (0, -5), (0, 1), (2, -1), (-7, -1), (-5, 0), (-4, 7), (-3, 6), (6, -5), (-5, 4), (1, -2), (1, -4), (5, -5), (-7, 2), (7, 3), (-6, -5), (5, 5), (-1, -2), (3, 7), (1, -7), (-3, -7), (5, 3), (-1, -4), (-2, -7), (4, 5), (-3, 0), (-5, -3), (-3, 4), (7, -7), (2, 3), (6, -3), (3, -7), (-3, 3), (4, 1), (0, -2), (-5, -1), (5, 4), (4, 0), (0, -1), (-5, 5), (1, 5), (-4, 4), (-3, -2), (1, 3), (2, -5), (-7, 7), (-4, -5), (3, 0), (-1, 1), (2, 7), (4, -2), (7, 4), (0, 6), (2, 1), (-2, 2), (-2, -6), (-2, 1), (6, -2), (0, -3), (-7, -4), (-2, -1), (7, -3), (4, 2), (0, -7), (0, -4), (3, 1), (7, -4), (3, 2), (-2, 0), (2, 6), (-5, 1), (-3, 2), (3, -6), (-4, -3), (3, -3), (7, 5), (4, -6), (-1, 0), (-4, -4), (6, 1)}
2. Element(allP, Mod[countQuestion, Length[allP]] + 1) → SOLP
3. Shuffle(Sequence[t, t, -4, 4, 1]) → allM, {-3, 2, 3, -2, -4, 1, 4, 0, -1}
4. Element(allM, Mod[m2Count, Length[allM]] + 1) → m2
5. Element(allM, Mod[countQuestion, Length[allM]] + 1) → m1
6. Textfield(inputB) → InputBoxB
7. Polygon(Zip[PixelsToPoint[Corner[1], Corner[3], Corner[5], A], A, {(pixelsLeft, pixelsTop), (pixelsLeft, y(Corner[5]) - pixelsBottom), Corner[5] - (pixelsRight, pixelsBottom), (x(Corner[5]) - pixelsRight, pixelsTop)}]) → borderBox
8. Corner(5) → layoutAppSize
9. onboardingTextOffset(Corner[onboardingText, 1], Corner[onboardingText, 3], onboardingCase, Corner[1], Corner[3], Corner[5]) → OnboardingTextOffset
10. Textfield(STUDP) → InputBoxA
11. Textfield(inputC) → InputBoxC
12. Segment((-10.8, 0), (10.8, 0)) → fakeX
13. Segment((0, -10.8), (0, 10.8)) → fakeY
14. Polygon(PC, Mirror[PC, yAxis], Mirror[PC, (0, 0)], Mirror[PC, xAxis]) → peep, bottomPeep, rightPeep, topPeep, leftPeep
15. Element(RemoveUndefined[{Intersect[r1, topPeep], Intersect[r1, rightPeep], Intersect[r1, leftPeep]}], 1) → LR1
16. Element(RemoveUndefined[{Intersect[r2, bottomPeep], Intersect[r2, leftPeep], Intersect[r2, rightPeep]}], 1) → LR2
17. Zip({Segment[(k, -10.5), (k, 10.5)], Segment[(-10.5, k), (10.5, k)]}, k, -10…10) → squareGridSegm
18. If(x(LR2) > 5, (-6, 1), (-3, 1)) → OFFLR2
19. If(x(LR1) > 5, (-6, -1), (-3, 0)) → OFFLR1