MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Applying a list of 2D paramters to a mathematica function
  • Next by Date: RE: Programming with options.
  • Previous by thread: Re: Reasonable integration speed? (24 hrs and counting)
  • Next by thread: Re: Reasonable integration speed? (24 hrs and counting)