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]
>>
>>
>>
>