/**/ RealRoots(x^2-2);
[Record[CoeffList := [-1, 0, 2], Inf := -4, Sup := 0], Record[CoeffList := [1, 0, -2], Inf := 0, Sup := 4]]
/**/ RR := RealRoots((x^2-2)*(x-1), 10^(-5));
/**/ FloatStr(RR[1].Inf); -- left end of interval
-1.414213562*10^0
/**/ FloatStr(RR[1].Sup); -- right end of interval
-1.414213561*10^0
/**/ RR := RealRoots(x^2-2, 10^(-20), [0, 2]);
/**/ RR[1].Inf; -- incomprehensible
60153992292001127886258443119406264231/42535295865117307932921825928971026432
/**/ FloatStr(RR[1].Inf, 20); -- comprehensible
1.4142135623730950488*10^0
|