Re: Linear combination of Bessel functions
- To: mathgroup at smc.vnet.net
- Subject: [mg121412] Re: Linear combination of Bessel functions
- From: Simon <simonjtyler at gmail.com>
- Date: Wed, 14 Sep 2011 05:14:40 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j4nesl$553$1@smc.vnet.net>
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
CoefficientList will do this, but I prefer CoefficientRules
In[1]:= CoefficientRules[
r^2 + Cos[r] BesselJ[0, rho r] + 3 Sin[r] BesselJ[1, rho r] +
Log[r] BesselJ[2, rho r], Table[BesselJ[i, rho r], {i, 0, 2}]]
Out[1]= {{1, 0, 0} -> Cos[r], {0, 1, 0} -> 3 Sin[r],
{0, 0, 1} -> Log[r], {0, 0, 0} -> r^2}