Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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






  • Prev by Date: Re: Inverse of function
  • Next by Date: Changing Style Sheets in 8.0
  • Previous by thread: Re: Linear combination of Bessel functions
  • Next by thread: Inverse of function