Re: How to draw elliptical curve

*To*: mathgroup at smc.vnet.net*Subject*: [mg62786] Re: How to draw elliptical curve*From*: "Klaus G." <Karl_boehme_9 at msn.com>*Date*: Mon, 5 Dec 2005 13:40:51 -0500 (EST)*References*: <dn0uls$8cl$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Why not simply: xmin = x /. First@Solve[x^3 + x + 1 == 0] Plot[{Sqrt[x^3 + x + 1], -Sqrt[x^3 + x + 1]}, {x, xmin, 6}, Frame -> True, Axes -> False]