Yeps! Sorry for the naif error...
So my proprosal should better read, e.g:
fpprintprec: 5$
s: float(rectform(solve(x^3-3*x^2-2*x+1,x)))$
zero: 1e-12 $
for i:1 thru length(s) do
(if abs(imagpart(rhs(s[i]))) <= zero then s[i]: x=realpart(rhs(s[i])) else false ) $
s;
Procedures defining a chop( ) function are most likely nicer...
Best
________________________________________________________________
Jose Sanchez-Marin.
Universitat de Valencia.
Spain e-mail: Jose.Sanchez at uv.es
_________________________________________________________________