Re: I wish Descending Order Result
- To: mathgroup at smc.vnet.net
- Subject: [mg23954] Re: I wish Descending Order Result
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Sun, 18 Jun 2000 03:00:38 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8ice31$9vm@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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