| Author |
Comment/Response |
Michael
|
 11/15/12 3:06pm
Try applying the function N[..]:
N[{{Root[-1 - #1 - 2 #1^2 + #1^3 &,
1]}, {{1 + 5 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1] -
2 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1]^2, -2 -
4 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1] +
2 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1]^2,
3 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1] -
Root[-1 - #1 - 2 #1^2 + #1^3 &, 1]^2,
1 - 5 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1] +
2 Root[-1 - #1 - 2 #1^2 + #1^3 &, 1]^2, 1}}} ]
(The Root[..] function represents the exact values. The function N[..] converts them to approximate Reals.)
URL: , |
|
