Re: Mathematica freezes?

*To*: mathgroup at smc.vnet.net*Subject*: [mg126987] Re: Mathematica freezes?*From*: Jason Ebaugh <ebaughjason at gmail.com>*Date*: Fri, 22 Jun 2012 03:00:11 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <jrup2b$flc$1@smc.vnet.net>

The evaluation does not complete and I get this message: "NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, value of the integration is 0, highly oscillatory integrand, or WorkingPrecision too small. >>" But the front end application itself does not freeze. I can just choose "abort evaluation" for the pull down menu and all is well. Jason Ebaugh On Thursday, June 21, 2012 4:21:15 AM UTC-5, Alex Khmelnitsky wrote: > When I try to do the following commands: > > r = 3.7; a = 5.1; z = 1.1; p = 0.61; > > e = Exp[I f]; > ep = Exp[I p]; > tc = r \[Rho] ep/e; > l1 = 1/2 (Sqrt[(r + a)^2 + z^2] - Sqrt[(r - a)^2 + z^2]); > l2 = > 1/2 (Sqrt[(r + a)^2 + z^2] + Sqrt[(r - a)^2 + z^2]); > sq = Sqrt[a^2 - \[Rho]^2]; > sq1 = Sqrt[a^2 - l1^2]; > sq2 = Sqrt[ l2^2 - a^2]; > \[Rho] = a Sin[x]; > ff1 = 2 Pi (a^2/(a^2 - tc)^(3/2) ArcTan[Sqrt[a^2 - tc]/sq2] - ( > tc sq2)/((a^2 - tc) (l2^2 - tc))); > > NIntegrate[ff1 \[Rho]^2/e, {f, 0, 2 Pi}, {x, 0, Pi/2}], > > it freezes Mathematica. Does it freeze on anyone else's computer? > > Thanks.