列表

描点

连线

复位

l1 = Sequence(-3, 3)
k = 2.2 (slider from -5 to 5)
b = 1.3 (slider from -5 to 5)
l = 0 (slider from 0 to Length[l1], step 1)
m = 0 (slider from 0 to Length[l1], step 1)
n = -3.5 (slider from Min[l1] - 0.5 to Max[l1] + 0.5)
l2 = Flatten({"x", "...", l1, "..."})
l3: (k * Take[l1, 1, l]) + b
l4 = Flatten({"y", "...", l3, If[l ≟ Length[l1], "..."]})
l5 = Sequence((Element[l1, k], Element[l3, k]), k, 1, m)
text1 = LaTeX("y=kx+b\ (k≠0)")
text2 = If(k ≟ 0, "错误", LaTeX[("y=" * Polynomial[(k * x) + b])])
text3 = TableText(l2, l4, "c_|")
f(x) = ((k * x) + b) / (Min[l1] - 0.5 < x < n)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)