x

y

+

+

−

大小 = 7 (slider from 1 to 10, step 1)
O: (0, 0)
y軸位移 = 0 (slider from (-大小) to 大小, step 1)
x軸刻度 = Sequence(Segment[((-大小) - y軸位移 + k, 0.1), ((-大小) - y軸位移 + k, -0.1)], k, 1, (2 * 大小) - 1)
x軸位移 = -7 (slider from (-大小) to 大小, step 1)
u = Vector(((-大小) - y軸位移, 0), (大小 - y軸位移, 0))
v = Vector((0, (-大小) - x軸位移), (0, 大小 - x軸位移))
y軸刻度 = Sequence(Segment[(-0.1, (-大小) - x軸位移 + k), (0.1, (-大小) - x軸位移 + k)], k, 1, (2 * 大小) - 1)
y軸格線 = Sequence(Segment[((-大小) - y軸位移, t), (大小 - y軸位移, t)], t, (-大小) - x軸位移, 大小 - x軸位移)
x軸格線 = Sequence(Segment[(t, (-大小) - x軸位移), (t, 大小 - x軸位移)], t, (-大小) - y軸位移, 大小 - y軸位移)
a = 2 (slider from 0 to 3, step 1)
b = -3 (slider from -5 to 0, step 1)
c = 3 (slider from -8 to 8, step 1)
lr = 0 (slider from 0 to abs(3), step 0.1)
ud = 0 (slider from 0 to abs(2), step 0.1)
f(x) = If[(-大小) - y軸位移 < x < 大小 - y軸位移, (((x - a)^(2) * (x - b)) * (x^(2) - x + 1) / 10)]
vx: ((-b)) / ((2 * a))
vy: ((-b^(2)) + ((4 * a) * c)) / ((4 * a))
vxt = FractionText(abs(vx))
vyt = FractionText(abs(vy))
g: x = a
h: x = b
A = Intersect(f, g)
B = Intersect(f, h)
B文字: "" + (LaTeX[b]) + ""
A文字: "" + (LaTeX[a]) + ""
C文字: "" + (LaTeX[c]) + ""
maxab = Max(a, b)
minab = Min(a, b)
midabc: a + b + c - maxab - minab
j(x) = Min[a, b] < x < 大小 - y軸位移
text1: "(x" + (LaTeX[If[a ≟ 0, ")", a < 0, "+" + a + ")", (-a) + ")"]]) + "^2(x" + (LaTeX[If[b ≟ 0, ")", b < 0, "+" + ((-b)) + ")", (-b) + ")"]]) + "(x^2-x+1)≤0"