Some more experiments with the imaginary part...

Can someone reproduce/explain the strange behaviour of the attached script?

Please modify the path to efstruc.spad accordingly.

Ralf

--
You received this message because you are subscribed to the Google Groups "FriCAS - 
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To view this discussion on the web visit 
https://groups.google.com/d/msgid/fricas-devel/cf04eed8-78d4-4849-8b86-cb5b23bb1958%40hemmecke.org.
pp := 
x^4-2729960418308000*x^3-395258439243352250000*x^2-55499520947716391500000000*x-345363656226658026765625000000
xxx := radicalRoots(pp,'x)$RadicalSolvePackage(INT);
x4 := xxx.4
imag x4                   -- returns 0
digits 21                 -- returns 20
imag x4                   -- gives radical expression
)co /home/hemmecke/g/fricas/src/algebra/efstruc.spad
imag x4                   -- returns 0
digits 21                 -- returns 20
imag x4                   -- returns 0
xxx := radicalRoots(pp,'x)$RadicalSolvePackage(INT);
x4 := xxx.4
imag x4                   -- gives radical expression
digits 20                 -- returns 21
imag x4                   -- returns 0

Reply via email to