Re: Transformation rule problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg58165] Re: Transformation rule problem*From*: Oliver Buerschaper <groo137vy at yahoo.co.uk>*Date*: Tue, 21 Jun 2005 06:02:38 -0400 (EDT)*References*: <d8u5fc$7v6$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

> a^2 b^4 + a^3 b + a^5 + a^5 b/. > {Power[a, m___ : 1] *Power[b, n___ : 1] :> > Power[d, Min[m,n]]*Power[a, m - Min[m, n]] *Power[b, n - Min[m, n]]} > > is working for your example Yeah, this works... it's exactly the default value assignment for the exponents that I didn't think of in my own experiments... Cheers, Oliver