is there a way to get a "proper" polynomial representation of results
that Mathematica gives?

Here is a "cooked up" example (my actual results in Mathematica a
fairly complicated expressions):

Suppose the result is:

x/(1 + y) + y/x - 1 = 0

I'm looking for something that gives me:

x^2 - x + y^2 = 0

Thanks in advance
Kris

expr1 = x/(1 + y) + y/x - 1 == 0;

To multiply through by the denominators requires that they not be zero

expr2a = Simplify[expr1, {y != -1, x != 0}]

x^2 + y^2 + y == x*y + x

or

expr2b = Simplify[expr1, Thread[
   DeleteCases[
     Denominator /@ List @@ expr1[[1]],
     _?NumericQ] != 0]]

x^2 + y^2 + y == x*y + x

expr2c = (#*x (1 + y) & /@ expr1) // Simplify

x^2 + y^2 + y == x*y + x

Putting all the terms on one side

expr3a = First[expr2a] - Last[expr2a] == 0

x^2 - x*y - x + y^2 + y == 0

or

expr3b = (expr2a /. Equal -> Subtract) == 0

x^2 - x*y - x + y^2 + y == 0

Collecting terms

expr4a = Collect[expr3a, x]

x^2 + x*(-y - 1) + y^2 + y == 0

or

expr4b = Collect[expr3a, y]

x^2 + (1 - x)*y - x + y^2 == 0

Bob Hanlon

is there a way to get a "proper" polynomial representation of results
that Mathematica gives?

Here is a "cooked up" example (my actual results in Mathematica a
fairly complicated expressions):

Suppose the result is:

x/(1 + y) + y/x - 1 = 0

I'm looking for something that gives me:

x^2 - x + y^2 = 0

Thanks in advance
Kris

eq = x/(1 + y) + y/x - 1 == 0

 -1 + y/x + x/(1 + y) == 0

 Numerator@Together[eq[[1]]] == eq[[2]]

 -x + x^2 + y - x y + y^2 == 0

or you have in mind some further transformation?

Have success, Alexei

Hi,

is there a way to get a "proper" polynomial representation of results
that Mathematica gives?

Here is a "cooked up" example (my actual results in Mathematica a
fairly complicated expressions):

Suppose the result is:

x/(1 + y) + y/x - 1 = 0

I'm looking for something that gives me:

x^2 - x + y^2 = 0

Thanks in advance
Kris

--
Alexei Boulbitch, Dr., habil.
Senior Scientist

IEE S.A.
ZAE Weiergewan
11, rue Edmond Reuter
L-5326 Contern
Luxembourg

Phone: +352 2454 2566
Fax:   +352 2454 3566

Website: www.iee.lu

This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you are not the intended recipient and have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal from your system. Thank you for your co-operation.