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
>

```

• Prev by Date: Re: Getting peak value from a Graph in Plot command - pls help
• Next by Date: Re: Referencing Equations by Number
• Previous by thread: Re: I wish Descending Order Result
• Next by thread: Re: I wish Descending Order Result