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

Re: LeafCount Question

• To: mathgroup at smc.vnet.net
• Subject: [mg25830] Re: LeafCount Question
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Sat, 28 Oct 2000 01:41:22 -0400 (EDT)
• References: <8t63s9$eg2@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Dana,

One way:
 Set menu>Cell>Default Output Format Type >TraditionalForm

Another way, especially if you don't want the other features of
TraditionalForm
(someone may give us an automatic version of this):

- select the output cell
- menu > Cell > Convert To > TraditionalForm
- menu > Cell > Convert To > StandardForm

PS: we can select all output cells at once by holding down Alt and clicking
on one such cell.

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

"Dana" <dana_news at hotmail.com> wrote in message
news:8t63s9$eg2 at smc.vnet.net...
> Hello.  Using Mathematica 4.0  When one solves equations, I get a little
frustrated
> when the answers come out as
> -A +B, when the answer looks much better as...
> B - A
>
> I was hoping that the "LeafCount" would be smaller with my "preferred"
way,
> but for some reason, it does not look like there is a difference.
>
> In[19]:=
> {LeafCount[-B + D], LeafCount[D - B]}
>
> Out[19]=
> {5, 5}
>
>
> Here is a simple Solve, and it is a little embarrassing to say the answer
is
> (-B + D)..Etc when  everyone else will have to change this  manually to
(D -
> B)...ect.
>
> Is there a way around this?  Again, I was hoping LeafCount would do the
> trick, but it apparently does not.
> Thank you in advance.  Dana.
>
> FullSimplify[Solve[{Y == A*X + B, Y == C*X + D}, {X, Y}],
>   ComplexityFunction -> LeafCount]
>
> {{X -> (-B + D)/(A - C), Y -> (-(B*C) + A*D)/(A - C)}}
>
>
>
> Since I am new to Mathematica, I noticed the following...
> Internally, it looks like no difference.  It is just frustrating.
>
> In[25]:=
> {FullForm[(-B + D)], FullForm[(D - B)]}
>
> Out[25]=
> {Plus[Times[-1, B], D], Plus[Times[-1, B], D]}
>
>
>
>