列表

描点

连线

复位

k = 12 (slider from -12 to 12, step 1)
l = 12 (slider from 0 to Length[l1], step 1)
l1 = Sort(Flatten[{DivisorsList[12], (-DivisorsList[12])}])
l3' = Sequence(If[k / Element[l1, t] < 0, "-", ""] + (FractionText[abs(k / Element[l1, t])]), t, 1, l)
m = 12 (slider from 0 to Length[l1], step 1)
n = 12.1 (slider from Min[l1] - 0.5 to Max[l1] + 0.1)
l2 = Flatten({"x", "...", l1, "..."})
l3: k / Take[l1, 1, l]
l4 = Flatten({"y", "...", l3', If[l ≟ Length[l1], "..."]})
text1 = LaTeX("y=\frac{k}{x}\ (k≠0)")
text2 = If(k ≟ 0, "错误", LaTeX["y=\frac{" + k + "}{x}"])
text3 = TableText(l2, l4, "c_|")
f(x) = If[Element[l1, 1] - 0.5 ≤ x ≤ If[n < -1, n, -1 + 0.1], k / x]
g(x) = If[1 - 0.1 ≤ x ≤ n + 0.5, k / x]
l5 = Sequence((Element[l1, t], Element[l3, t]), t, 1, m)