Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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