Re: Reasonable integration speed? (24 hrs and counting)
- To: mathgroup at smc.vnet.net
- Subject: [mg68086] Re: Reasonable integration speed? (24 hrs and counting)
- From: axlq at spamcop.net (axlq)
- Date: Sat, 22 Jul 2006 06:24:09 -0400 (EDT)
- References: <e9nkvm$9vo$1@smc.vnet.net> <e9q97p$7tf$1@smc.vnet.net> <e9rhl6$p7k$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <e9rhl6$p7k$1 at smc.vnet.net>,
Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com> wrote:
>I think you can abort the evaluation. Here is what I get on my system:
>
>f[x] = Sqrt[a^2 + (q - x)^2]
>
>Integrate[Cos[(2*n + 1)*Pi*(x/d)]*((Exp[(-I)*k*f[x]]/(4*Pi*f[x]^5))*((1
>+ I*k*f[x])*(2*f[x]^2 - 3*a^2) + (k*a*f[x])^2)*I*(d/(2*Pi*w)) + p), {x,
>-d/2, d/2}]
>
>displays after several minutes
>
>Integrate::"gener" : "Unable to check convergence.
Hmmm... I never got any such message. Oh, well, I did abort it
after I broke it down into several simpler terms using Expand[] and
discovered Mathematica couldn't integrate most of them. At least it
gave me output eventually; after an hour or it gave back the same
thing I input.
Now I'm writing a routine in Visual Basic for Excel solve it
numerically.
-Alex