Re: Problem with an integral

• To: mathgroup at smc.vnet.net
• Subject: [mg95618] Re: Problem with an integral
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Thu, 22 Jan 2009 07:14:50 -0500 (EST)
• Organization: Uni Leipzig
• References: <gl72ql\$cpm\$1@smc.vnet.net>

```Hi,

Mathematica can't find a closed form for unknown n
and

integral[nn_]:=
FullSimplify[
Assuming[{k > 0 && Element[k, Integers]},
Integrate[Evaluate[fun/. n->nn], {x, 0, \[Infinity]}]]]

give you analytic, and finite results for the corresponding n

Regards
Jens

Jepessen wrote:
> Hi.
>
> I'm working with a little problem in Mathematica 7.0.0.
> I want to integrate this function
>
> fun = x^(n + 1)*E^(-x + (I*k)/x)
>
> Assuming that both n and k are greater than zero, I write
>
> integral = FullSimplify[Assuming[{k > 0, n > 0}, Integrate[fun, {x, 0,
> \[Infinity]}]]]
>
> And I obtain a symbolic result.
> But, when I want to put some specific value, like this
>
> integral /. {n -> 1, k -> 1}
>
> I obtain always ComplexInfinity, and/or other errors.
> So, I've tried to evaluate numerically the integral for the same
> specific values, in this way
>
> NIntegrate[Evaluate[fun /. {n -> 1, k -> 1}], {x, 0, \[Infinity]}]
>
> And I obtain a finite numeric result. So, there's some error in
> symbolic computation, or I miss something when I try to integrate the
> formula?
>