MathGroup Archive 2004

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

Search the Archive

NSolve freezes on two polynomial equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg48332] NSolve freezes on two polynomial equations
  • From: carlos at colorado.edu (Carlos Felippa)
  • Date: Tue, 25 May 2004 07:16:47 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

This innocent looking system of 2 quadratic equations (extracted with
InputForm from the guts of a large code) freezes Mathematica 4.2 on my
Mac.  Same if NSolve is replaced by Solve. I wonder why, and how to
fix it.  Thanks.

ClearAll[x,y];
eqs=
{(37.5*(-0.005707305713190276 + 12.52471957392599*I + 
              x)*(4.672373972379857 + 12.52471957392599*I + 
              x))/((100. + 939.3539680444492*I)*x + 
          37.5*x^2 - 487.5*(0.4594268481272286 + 8.967155112255348*I +
                y)*(1.1815987928984124 + 16.08228403559663*I + 
                y)) == -0.03653043382891893,
(-487.5*(-1.0444224854481148 + 12.524719573925989*I + 
              y)*(0.6854481264737559 + 12.524719573925989*I + 
              y))/((100. + 939.3539680444492*I)*x + 
          37.5*x^2 - 487.5*(0.4594268481272286 + 8.967155112255348*I +
                y)*(1.1815987928984124 + 16.08228403559663*I + 
                y)) == -0.8852848076704578};
sol=NSolve[eqs,{x,y}]; Print[sol];


  • Prev by Date: RE: Min[], Max[]
  • Next by Date: Re: newbie problem in linux
  • Previous by thread: Re: WTD: point intersection in space
  • Next by thread: Re: NSolve freezes on two polynomial equations