Real Solve Package

p := 4*x^3 - 3*x^2 + 2*x - 4

ans1 := solve(p,0.01)$REALSOLV

ans2 := solve(p::POLY(FRAC(INT)),0.01)$REALSOLV

R := Integer

ls : List Symbol := [x,y,z,t]

ls2 : List Symbol := [x,y,z,t,new()$Symbol]

pack := ZDSOLVE(R,ls,ls2)

p1 := x**2*y*z + y*z

p2 := x**2*y**2*z + x + z

p3 := x**2*y**2*z**2 +  z + 1

lp := [p1, p2, p3]

ans3 := realSolve(lp,[x,y,z],0.01)

See Also:

• )show RealSolvePackage