[Date Index] [Thread Index] [Author Index]

Re: Order of coefficients in output

• To: mathgroup at smc.vnet.net
• Subject: [mg29960] Re: Order of coefficients in output
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 20 Jul 2001 03:28:25 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <9j64s1$2d9$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,


http://support.wolfram.com/mathematica/mathematics/algebra/polynomialsorting.html


or

Unprotect[MakeBoxes]

makeSignPair[-a_] /; ! NumericQ[a] := {"-", MakeBoxes[a]}
makeSignPair[b_?NumericQ*a_] /; b < 0 := {"-", MakeBoxes @@ {-b*a}}
makeSignPair[a_?NumericQ] /; a < 0 := {"-", MakeBoxes @@ {-a}}
makeSignPair[a_] := {"+", MakeBoxes[a]}

MakeBoxes[poly_Plus /; PolynomialQ[poly], form_:StandardForm] := 
  Module[{lst},
      lst = Reverse[List @@ poly];
    lst = Flatten[makeSignPair /@ lst];
    If[lst[[1]] == "+", lst = Rest[lst]];
    RowBox[lst]
    ]

Protect[MakeBoxes] 

will do that.

Regards
  Jens

Martin Harborth wrote:
> 
> Mathematica puts expressions like x^2+2x+1 into the following result:
> 1+2x+x^2. Is there a way to change these standard behaviour so that I get
> the order of coefficients in the output as in the first expression?
> 
> Martin.