使用二次公式求解方程并验证

GeoGebra 命令及参数

1. GCD(b, denom) → firstGCD
2. Polygon((instructionEdge, y(Corner[1])), (instructionEdge, y(Corner[3])), Corner[4], Corner[1]) → instruction, instructionRight, instructionTop, instructionLeft, instructionBottom
3. Line((x(Corner[1]) + ((2 * indent) * screenwidth), 0), yAxis) → align1
4. Line((x(Corner[1]) + ((3 * indent) * screenwidth), 0), yAxis) → align2
5. Line((x(Corner[1]) + ((4 * indent) * screenwidth), 0), yAxis) → align3
6. Simplify((a * x^(2)) + (b * x) + c) → f
7. PrimeFactors(absDiscriminant) → primeFactors
8. Unique(primeFactors) → uniqueFactors
9. Length(uniqueFactors) → numberFactors
10. Sequence(CountIf[x ≟ Element[uniqueFactors, i], primeFactors], i, 1, numberFactors) → factorRepetitions
11. Product(Sequence[Element[uniqueFactors, i]^(floor(Element[factorRepetitions, i] / 2)), i, 1, numberFactors]) → outsideroot
12. If(discriminant < 0, "i", "") → imaginary_1
13. GCD(outsideroot, denom) → secondGCD
14. Textfield(a) → inputBox1
15. Textfield(b) → inputBox2
16. Textfield(c) → inputBox3
17. ComplexRoot(f) → z_1, z_2
18. If(discriminant < 0, "no", If[discriminant > 0, "two", "one"]) → intercepts
19. If(discriminant < 0, "no real solutions and two imaginary solutions", If[discriminant > 0, "two real solutions and no imaginary solutions", "one real solution and no imaginary solutions"]) → solutions
20. Simplify((a * x^(2)) + c) → leftside
21. Simplify(((-b) * x)) → rightside