MathGroup Archive 2012

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

Search the Archive

Mathematica freezes?


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?