fnormal in maple (version 7, anyway)

I tried this code after I sent my previous message.
It seems to be mostly close to what I want. Thanks!

> float_chop(ex):=
>  if floatnump(ex) then
>      if abs(ex) < 1.0e-14 then 0
>      else ratsimp(ex)                         -- depends on ratepsilon
>   elseif mapatom(ex) then ex
>   else map(float_chop,ex)$

-- 
? ?????????,
 Alexander                          mailto:aee at imm.uran.ru