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

**Follow-Ups**:**Re: Complex integration***From:*DrBob <drbob@bigfoot.com>