Re: I wish Descending Order Result
- To: mathgroup at smc.vnet.net
- Subject: [mg23986] Re: I wish Descending Order Result
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Mon, 19 Jun 2000 01:45:29 -0400 (EDT)
- References: <8ice31$9vm@smc.vnet.net> <8ihslq$l5m@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Jens, I have used your suggestion to get a solution that deals with deeper polynomial parts $Post = # //. (x_Plus /; PolynomialQ[x] :> Infix[Reverse[List @@ x], "+"]) & Unfortunately, although this is fine for appearence, for further computation we run into problems analogous to those with Matrix form and other wrappers: x(1 + x + x^2) Expand[%] D[%%] $Post = . So, what to do? -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de> wrote in message news:8ihslq$l5m at smc.vnet.net... > Hi, > > $Post = If[Head[#] === Plus && PolynomialQ[#], > Infix[Reverse[List @@ #], "+"], #] & > > ? > > Regards > Jens > > Choi sungkwon wrote: > > > > In Mathmatica, > > > > When I Typing > > Expand[(1 x)^2] > > Then Mathmatica Wrote 1 2 x x^2 > > > > But I Wish the result to > > x^2 2 x 1 > > ie Descending Order Result for x > > > > What can I do >