Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: Bessel K expansion, large argument?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70106] Re: Bessel K expansion, large argument?
  • From: dimmechan at yahoo.com
  • Date: Wed, 4 Oct 2006 05:58:41 -0400 (EDT)
  • References: <eftdhr$6b9$1@smc.vnet.net>

Perhaps,


Normal[Series[z*(BesselK[1, z]/BesselK[0, z]), {z, Infinity, 6}]]
Series::esss :...(3 times)
General::stop : Further output of Series::esss will be suppressed
during this calculation.
1/2 + 103/(32*z^6) - 1073/(1024*z^5) + 13/(32*z^4) - 25/(128*z^3) +
1/(8*z^2) - 1/(8*z) + z


List @@ %
{1/2, 103/(32*z^6), -(1073/(1024*z^5)), 13/(32*z^4), -(25/(128*z^3)),
1/(8*z^2), -(1/(8*z)), z}


%[[{1, 8, 7, 6, 5, 4, 3, 2}]]
{1/2, z, -(1/(8*z)), 1/(8*z^2), -(25/(128*z^3)), 13/(32*z^4),
-(1073/(1024*z^5)), 103/(32*z^6)}


(HoldForm[Plus[##1]] & ) @@ %
HoldForm[1/2 + z - 1/(8*z) + 1/(8*z^2) - 25/(128*z^3) + 13/(32*z^4) -
1073/(1024*z^5) + 103/(32*z^6)]


is what you want.


  • Prev by Date: Faster ways to unionize intersecting sets?
  • Next by Date: Re: Draw approximated normal distribution based on mean, median, percentiles?
  • Previous by thread: Re: Faster ways to unionize intersecting sets?
  • Next by thread: Re: Bessel K expansion, large argument?