• 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:
>
> > 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