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]