Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Re: TraditionalForm ordering

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81066] Re: [mg80279] Re: [mg80217] TraditionalForm ordering
  • From: Mitch Murphy <mitch at lemma.ca>
  • Date: Mon, 10 Sep 2007 18:53:15 -0400 (EDT)
  • References: <200708150812.EAA09733@smc.vnet.net> <200708160851.EAA23692@smc.vnet.net>

Carl,

wow! i've been banging my head against turning off automated  
canonical ordering for hours. basically i want to keep order of  
equation "as entered" ...

In[44]:= c - b + a

Out[44]= a - b + c

In[45]:= PolynomialForm[HoldForm[c - b + a], TraditionalOrder -> False]

Out[45]= c - b + a


... but how do i get rid of a leading one coeff (which is now inside  
HoldForm)

In[46]:= c - 1 b + a

Out[46]= a - b + c

In[47]:= PolynomialForm[HoldForm[c - 1 b + a], TraditionalOrder ->  
False]

Out[47]= c - 1 b + a


thanks,
Mitch



On Aug 16, 2007, at 04:51, Carl Woll wrote:

> Use the undocumented function PolynomialForm:
>
> TraditionalForm @ PolynomialForm[HoldForm[b + a], TraditionalOrder - 
> > False]
>
> Carl Woll
> Wolfram Research
>
>> Bonus points:
>> Explain the output of this command in terms of the pattern  
>> matching of
>> FormatValues, Attributes, and DefaultValues of Times.
>>
>> Grid[Outer[HoldForm@Times[1,##,1]&,{2,a,1},{2,a,1}],Dividers->All]
>>
>>
>>
>





  • Prev by Date: Re: plot error messages are completelly missing
  • Next by Date: Re: Slow Show/Graphics in v6.0
  • Previous by thread: Re: CompensatedSummation in Total
  • Next by thread: Re: TraditionalForm ordering