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?