Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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.



  • Prev by Date: different solutions NDSolve/ DSolve
  • Next by Date: Re: altering each member of a list that matches a certain pattern
  • Previous by thread: different solutions NDSolve/ DSolve
  • Next by thread: Re: Mathematica freezes?