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

• Prev by Date: ExactRootIsolation
• Next by Date: Factor.....
• Previous by thread: Re: ExactRootIsolation