Services & ResourcesWolfram ForumsMathGroup Archive

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

Mathematica freezes?

• To: mathgroup at smc.vnet.net
• Subject: [mg126972] Mathematica freezes?
• From: Alex Khmelnitsky <akhmel6 at gmail.com>
• Date: Thu, 21 Jun 2012 05:18:50 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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.

• Follow-Ups:
  • Re: Mathematica freezes?
    • From: James Stein <mathgroup@stein.org>