
Re: Linear combination of Bessel functions
Posted:
Sep 14, 2011 4:41 AM


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@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

