ExactRootIsolation
- To: mathgroup at smc.vnet.net
- Subject: [mg70928] ExactRootIsolation
- From: "dimitris" <dimmechan at yahoo.com>
- Date: Thu, 2 Nov 2006 06:46:55 -0500 (EST)
I notice also that Root has an invisible third argument
Solve[x^7 + 4*x^3 + 2*x + 1 == 0];
lst = x /. %
{Root[1 + 2*#1 + 4*#1^3 + #1^7 & , 1], Root[1 + 2*#1 + 4*#1^3 + #1^7 &
, 2], Root[1 + 2*#1 + 4*#1^3 + #1^7 & , 3],
Root[1 + 2*#1 + 4*#1^3 + #1^7 & , 4], Root[1 + 2*#1 + 4*#1^3 + #1^7 &
, 5], Root[1 + 2*#1 + 4*#1^3 + #1^7 & , 6],
Root[1 + 2*#1 + 4*#1^3 + #1^7 & , 7]}
(#1[[1]] & ) /@ lst
{1 + 2*#1 + 4*#1^3 + #1^7 & , 1 + 2*#1 + 4*#1^3 + #1^7 & , 1 + 2*#1 +
4*#1^3 + #1^7 & , 1 + 2*#1 + 4*#1^3 + #1^7 & ,
1 + 2*#1 + 4*#1^3 + #1^7 & , 1 + 2*#1 + 4*#1^3 + #1^7 & , 1 + 2*#1 +
4*#1^3 + #1^7 & }
(#1[[2]] & ) /@ lst
{1, 2, 3, 4, 5, 6, 7}
(#1[[3]] & ) /@ lst
{0, 0, 0, 0, 0, 0, 0}
What is this third agument?
Thanks