Services & ResourcesWolfram ForumsMathGroup Archive

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

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];

• Follow-Ups:
  • Re: NSolve freezes on two polynomial equations
    • From: Daohua Song <ds2081@columbia.edu>
  • Re: NSolve freezes on two polynomial equations
    • From: Daniel Lichtblau <danl@wolfram.com>