       Re: Solving Polynomial Equations?

• To: mathgroup at smc.vnet.net
• Subject: [mg13379] Re: [mg13309] Solving Polynomial Equations?
• From: BobHanlon at aol.com
• Date: Mon, 20 Jul 1998 02:50:42 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```Two examples:

eqns = {x^3 + 2*x^2*y + 3*x*y^2 - 22*y^3 == 0,
3*x^3 + 3*x^2*y + 5*x*y^2 - 46*y^3 == 0};

soln = Union[Solve[eqns, {x, y}]]

Solve::svars:
Equations may not give solutions for all "solve"
variables.

{{x -> 2*y}, {x -> 0, y -> 0}}

eqns = {x^3 + 2*x^2*y + 3*x*y^2 - 22*y^3 == 0,
3*x^3 + 3*x^2*y + 5*x*y^2 - 46*y^3 == 0,
x^3 + 2*x^2 + 3*x - 22 == 0};

soln = Solve[eqns, {x, y}]

{{x -> 2, y -> 1}, {y -> (-2 - I*Sqrt)/2,
x -> -2 - I*Sqrt},
{y -> (-2 + I*Sqrt)/2, x -> -2 + I*Sqrt}}

Select[soln, FreeQ[#1, Complex] & ]

{{x -> 2, y -> 1}}

or

Select[soln, Im[{x, y} /. #1] == {0, 0} & ]

{{x -> 2, y -> 1}}

Bob Hanlon

In a message dated 7/17/98 4:47:34 AM, engp7778 at nus.edu.sg wrote:

>Which software is effective in solving the Simultaneous Polynomial
>Equations?
>
>I am using Mathematica now, but it doesn't seem to be capable of solving
>such problems. And I don't know how can I tell Mathematica to neglect
>the complex roots which I don't need to know. Attached is a sample
>problem.

```

• Prev by Date: MathLink with PowerPlant
• Next by Date: Math3.0 OptionInspector | NotebookOptions | PrintingOptions | Headers --> all 'None' keeps printing headers. HELP
• Previous by thread: Solving Polynomial Equations?
• Next by thread: In which interval?