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