Re: Reasonable integration speed? (24 hrs and counting)
- To: mathgroup at smc.vnet.net
- Subject: [mg68068] Re: Reasonable integration speed? (24 hrs and counting)
- From: axlq at spamcop.net (axlq)
- Date: Fri, 21 Jul 2006 17:36:05 -0400 (EDT)
- References: <e9nkvm$9vo$1@smc.vnet.net> <e9q95s$7o9$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <e9q95s$7o9$1 at smc.vnet.net>,
ben <benjamin.friedrich at gmail.com> wrote:
>My version of Mathematica cant solve this integral (it gets returned
>unevaluated),
This happens for me too if I don't input the first part of the
problem which defines f[x]:
>> In[1]:= f[x] = Sqrt[a^2+(q-x)^2]
And then
>> In[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}]
Defining f[x], or substituting the expression for f[x] into the
integral, results in mathematica not returning a result in 2 days.
I suspect it can only be solved numerically, given specific values
for all the constants.
-A