Re: How to get the corresponding coefficients?

*To*: mathgroup at smc.vnet.net*Subject*: [mg125845] Re: How to get the corresponding coefficients?*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Thu, 5 Apr 2012 05:45:22 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201204040833.EAA00068@smc.vnet.net>

exp = x3 Exp[x1 + x2]; exp /. Exp[_] -> 1 x3 exp /. c_ * Exp[_] -> c x3 Cases[exp, _?(FreeQ[#, E] &)][[1]] x3 exp /. c_ * Exp[x_] -> x x1 + x2 Cases[exp, Exp[x_] -> x][[1]] x1 + x2 Bob Hanlon On Wed, Apr 4, 2012 at 4:33 AM, <simplerbysimpler at gmail.com> wrote: > If exp:= x3 Exp[x1+x2]; > How can I get the coefficient x3 and the exponential x1+x2 from the exp in a simple way? >

**References**:**How to get the corresponding coefficients?***From:*simplerbysimpler@gmail.com