LeafCount Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg25782] LeafCount Question*From*: "Dana" <dana_news at hotmail.com>*Date*: Wed, 25 Oct 2000 03:53:42 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

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