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.
>