MathGroup Archive 2005

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

Search the Archive

Complex integration

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

Dear Group,

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

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 

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,


  • 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