[Date Index]
[Thread Index]
[Author Index]
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?**
| |