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: [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}




  • Prev by Date: Is this a bug ? 1/N[Range[3]] = crash
  • Next by Date: Packed Graph or GraphPlot output with non-square layout?
  • Previous by thread: Re: Linear combination of Bessel functions
  • Next by thread: Re: Linear combination of Bessel functions