利用截距和点写函数标准方程

GeoGebra 命令及参数

1. If(x(B) ≟ root2, B + (1, 0), If[x(B) ≟ root1, B - (1, 0), B]) → B1
2. Polygon((edge, y(Corner[1])), Corner[2], Corner[3], (edge, y(Corner[4]))) → Mask, mask1, mask2, mask4, mask3
3. Simplify(f1) → f2
4. TableText({{"\textit{x}=" + (LaTeX[root1]), "\textit{x}=" + (LaTeX[root2])}, {"\textit{x}" + (LaTeX[Element[plus, sgn((-root1)) + 2]]) + " " + (LaTeX[(-root1)]) + "=0", "\textit{x}" + (LaTeX[Element[plus, sgn((-root2)) + 2]]) + " " + (LaTeX[(-root2)]) + "=0"}}, "l") → Conclusions2
5. TableText({{"\textit{f}(\textit{x})=\textit{a}" + (LaTeX[f1]), "\text{Original equation}"}, {LaTeX[y(B1)] + "=\textit{a}(" + (LaTeX[x(B1)]) + " " + (LaTeX[Element[plus, sgn((-root1)) + 2]]) + " " + (LaTeX[(-root1)]) + ")(" + (LaTeX[x(B1)]) + " " + (LaTeX[Element[plus, sgn((-root2)) + 2]]) + " " + (LaTeX[(-root2)]) + ") ", "\text{Substitute in }" + (LaTeX[B1]) + "."}, {LaTeX[y(B1)] + "=\textit{a}(" + (LaTeX[x(B1) - root1]) + ")(" + (LaTeX[x(B1) - root2]) + ")=" + (LaTeX[f1(x(B1))]) + "\textit{a}", "\text{Simplify.}"}, {" \textit{a}=" + (LaTeX[FractionText[y(B1) / f1(x(B1))]]), " "}}, "l") → Conclusions3