斜率测验(2)

GeoGebra 命令及参数

1. Max({maxX - minX, maxY - minY}) → max
2. Append("?", Sequence[Text[(-i)], i, (-max), max]) → listTextY
3. Append("?", Sequence[Text[(-i)], i, (-max), max]) → listTextX
4. Sequence((-i), i, (-max), max) → listX
5. Element(listX, SelectedIndex[listTextX] - 1) → xSelected
6. Sequence((-i), i, (-max), max) → listY
7. Element(listY, SelectedIndex[listTextY] - 1) → ySelected
8. Shuffle(Sequence[i, i, minX, maxX]) → xList
9. Element(xList, 1) → a_1
10. Element(xList, 2) → a_2
11. Random(minY, maxY) → b_2
12. Random(minY, maxY) → b_1
13. Line(P, Q) → L
14. Point(L) → A
15. Point(L) → B
16. Polygon(A, B, If[x(B) > x(A), (x(B), y(A)), (x(A), y(B))]) → slope, a, b, c
17. Sequence(Translate[slope, Vector[(i * Vector[A, B])]], i, -20, 20) → listSlope