Plot works in Mathematca 7 but not in Mathematica 8

*To*: mathgroup at smc.vnet.net*Subject*: [mg115848] Plot works in Mathematca 7 but not in Mathematica 8*From*: "1.156" <rob at piovere.com>*Date*: Sat, 22 Jan 2011 03:24:31 -0500 (EST)

I've found very little to complain about using Mathematica 8 but I just ran into a Plot which only displays the two plot axes, no graph. Fortunately I still have Mathematica 7 installed and found that Mathematica 7 Plots this same code nicely. Can anyone give me clues on what may make this work correctly in Mathematica 8? Code below, thanks. *************** h = 1; a = 0.0001; kn = Pi/h; kr = 3.050; Plot[Abs[((kn^2 - (kr + ki I)^2)* (4 h (Log[4 h/a] - NIntegrate[(1 - Exp[I (kr + ki I) y Cos[kn y]])/y, {y, 0, 2}]) + I/((kr + ki I) + kn) (Exp[I 2 ((kr + ki I) + kn) h] - 1) + I/((kr + ki I) - kn) (Exp[I 2 ((kr + ki I) - kn) h] - 1) ) - (kn^2 + (kr + ki I)^2)* NIntegrate[ Exp[I (kr + ki I) y] Sin[kn y]/y, {y, 0, 2}])], {ki, -0.23, -.10}] --