Re: How to draw elliptical curve

*To*: mathgroup at smc.vnet.net*Subject*: [mg62785] Re: How to draw elliptical curve*From*: dh <dh at metrohm.ch>*Date*: Mon, 5 Dec 2005 03:38:01 -0500 (EST)*References*: <dmuids$mlt$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi Berlid, why not solve the equation for x or y? e.g. solving for y: Plot[{Sqrt[x^3 + x + 1], -Sqrt[x^3 + x + 1]}, {x, -.6823, 1}] or solving for x: res = Solve[y^2 == x^3 + x + 1, x][[1]]; Plot[x /. res, {y, -2, 2}] Daniel Berlid wrote: > Hello, everyone. Here, I want to draw elliptical curve something like > y^2=x^3+x+1 in screen with Mathematica4, and I have tried ellipticExp > and EllipticLog but in vain. Could anyone tell me in detail how to draw > elliptical curves? thanks. >