Re: efficient term collection algorithm
- To: mathgroup at smc.vnet.net
- Subject: [mg69186] Re: [mg69155] efficient term collection algorithm
- From: Michael Jensen <michaeljensen at mac.com>
- Date: Fri, 1 Sep 2006 06:41:22 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Here is a function thats makes it
In[26]:=
f[exp_]:=Module[{denoms},
denoms=Variables[Denominator/@exp];
denoms,Collect[exp,denoms]
]
IIn[31]:=
f[a/i+b/j+c/i+d/j]//InputForm
Out[31]//InputForm=
(a + c)/i + (b + d)/j
--
Michael Jensen
Hollandsvej 21 st. tv.
DK-2800 Lyngby
Danmark
Tel.: +45 4593 9482
Mobil: +45 2046 1169
email: michaeljensen at mac.com
http://homepage.mac.com/michaeljensen