Re: Linear combination of Bessel functions
- To: mathgroup at smc.vnet.net
- Subject: [mg121408] Re: Linear combination of Bessel functions
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 14 Sep 2011 05:13:56 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: hanlonr at cox.net
expr = r^2 + Cos[r] BesselJ[0, rho r] + 3 Sin[r] BesselJ[1, rho r] +
Log[r] BesselJ[2, rho r];
Depending on how you want to handle r^2 term:
List @@ expr /. BesselJ[_, _] -> 1
{r^2, Cos[r], Log[r], 3*Sin[r]}
Cases[List @@ expr, c_. * BesselJ[_, _] -> c]
{Cos[r], Log[r], 3*Sin[r]}
Bob Hanlon
---- Sam Takoy <sam.takoy at yahoo.com> wrote:
=============
Hi,
Suppose I have an expression that's a linear combination of Bessel
function. Kind of like this
r^2 + Cos[r] BesselJ[0, rho r] + 3 Sin[r] BesselJ[1, rho r] + Log[r]
BesselJ[2, rho r]
Is there a way to extract the coefficients of the linear combination?
Thanks,
Sam