MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Plot of Elliptic Curve with Grid

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

I made your plot using DrawGraphics as follows.


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.

    {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,
but taking a quick look at your email address I have no idea how it is
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
djmp at

From: flip [mailto:flip_alpha at]
To: mathgroup at


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


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         %%%%     @    %%%%%****************

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,