       Re: Plot of Elliptic Curve with Grid

• To: mathgroup at smc.vnet.net
• Subject: [mg51537] Re: [mg51512] Plot of Elliptic Curve with Grid
• From: "David Park" <djmp at earthlink.net>
• Date: Thu, 21 Oct 2004 22:21:02 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```I made your plot using DrawGraphics as follows.

Needs["DrawGraphics`DrawingMaster`"]

I don't think your integer points corresponded to the curve you specified.
So I tried to find some and came up with the following list.

integerpoints = {{0, 1}, {0, -1}, {1, 2}, {1, -2}, {8, 23}, {8, -23}};
xpoints = Union@(First /@ integerpoints);
ypoints = Union@(Last /@ integerpoints);

I then made the plot with the following statement. The grid lines and tick
marks and labels match the values for the integer points.

Draw2D[
{ImplicitDraw[y^2 == x^3 + 2x + 1, {x, -1, 9}],
CirclePoint[#, 3, Black, Yellow] & /@ integerpoints},
AspectRatio -> 1.5,
Frame -> True,
FrameTicks ->
{CustomTicks[Identity, databased[xpoints]],
CustomTicks[Identity, databased[ypoints]],
CustomTicks[Identity, databased[xpoints], CTNumberFunction -> (""
&)],
CustomTicks[Identity, databased[ypoints],
CTNumberFunction -> ("" &)]},
GridLines ->
{CustomGridLines[Identity, databased[xpoints]],
CustomGridLines[Identity, databased[ypoints]]},
PlotLabel -> SequenceForm["Elliptic Curve ", y^2 == x^3 + 2x + 1],
Background -> Linen,
ImageSize -> 450];

I was going to send you privately the notebook and a gif image of the plot,
supposed to be decrypted. If you want to have a usable email account without
being bothered by spam or virus email subscribe to SpamArrest or some
similar service. It works.

David Park

From: flip [mailto:flip_alpha at safebunch.com]
To: mathgroup at smc.vnet.net

Hello,

I would like to plot an elliptic curve over Fp of the form:

y^2 = x^3 + ax + b (1)

I would then like to plot the list of points that satisfy (1).  {Note: I
have a way to generate that list).

I would like the continuous plot (like using implicit plot over reals) of
(1) with a grid having points of intersection over Fp (the integer points)
shown on the plot (over a grid).

Example:

y^2 = x^3 + 2x + 1 over F5

This curve has 7 points (counting the point at infinity).

The list of points is: S = {{0,1},{0,4},{1,2},{1,3},{3,2},{3,3}}

I would like to show a grid plot with the elliptic curve (continuous over
reals) superimposed over the discrete points given above (with points of
intersection (a dot of some sort shown for each point above)).

I would like to be able to pass in the "a, b, S" and have this automatically
generate the plot.

Is this easy?

Thanks for any input, Flip

****email****         flip         %%%%     @    %%%%%
nethere......com****************

Sorry for the crypto in my email, but spam is a killer

```

• Prev by Date: Re: Re: Re: Corrupted file
• Next by Date: Re: More on Delete Problems
• Previous by thread: Plot of Elliptic Curve with Grid
• Next by thread: Re: MultipleListPlot without any Point Shape, only with line made by PlotJoined -> True tests=INVALID_DATE,QUOTED_EMAIL_TEXT,RCVD_IN_ORBS,