Complex integration

• To: mathgroup at smc.vnet.net
• Subject: [mg55807] Complex integration
• From: "Bernhard von Vacano" <vacano at gmx.de>
• Date: Wed, 6 Apr 2005 04:07:44 -0400 (EDT)
• Organization: Uni Marburg
• Reply-to: "Bernhard von Vacano" <vacano at gmx.de>
• Sender: owner-wri-mathgroup at wolfram.com

```Dear Group,

I am experiencing problems with a Mathematica simulation I am trying to
perform.

The first part of my notebook evaluates without any problems:

ETL[w_] := Exp[-(w - w0)^2/width^2*2 Log[2]]

EPer[w_] := ETL[w]* Exp[I Pi Cos[2 Pi w/Wm]]
EPerCC[w_] := ETL[w]* Exp[-I Pi Cos[2 Pi w/Wm]]

parameter := {w0 -> 12500, width -> 250, Wm -> 128}

AmpTL[W_] = Integrate[ETL[w]ETL[w + W] /. parameter, {w, 10000, 20000}]

This is the first expression I need for plotting (in the Range of W =
0..1000), and gives the correct results.
With my so far limited mathematica skills, I could not get the following
modified expression to be evaluated:

AmpPer[W_] = Integrate[EPerCC[w]EPer[w + W] /. parameter, {w, 10000, 20000}]

Like this, it only produces "\$RecursionLimit::reclim: "Recursion depth of
256 exceeded." und "\$IterationLimit::itlim: Iteration limit of 4096
exceeded."

I have tried other limits for the integration, indefinite integration and
NIntegrate, but so far it did not work. (At the moment, I am using
Mathematica 4).

Could anybody help me with this? I don't really know which parameters to use
or how to restate the problem to get it working. It doesn't seem too hard to
compute, does it?

Thank you very much in advance,

Yours
Bernhard

```

• Prev by Date: Re: Transpose to multiple lists
• Next by Date: Re: NMinimize--problem with a min-max problem
• Previous by thread: Re: DirectedInfinity[1 + I], why does it get replaced by (1 + I)/(sqrt(2) ?
• Next by thread: Re: Complex integration