File:Rational points height 1000.svg: Difference between revisions

From Elliptic Curve Crypto
VisualWikitext
No edit summary
 
R code
 
Line 1: Line 1:
<syntaxhighlight lang="R" line="1">
#! /usr/bin/R -f


x_data = seq(-5, 5, 0.01)
Y = function(x) {sqrt(-7/17*x*(x - 5)*(x + 5)*(x + 1))}
svg()
plot( x=c(rev(x_data),x_data), xlab=c("x","curve plotted showing all rational points with H(x) ≤ 1000"),
    y=c(Y(rev(x_data)),-Y(x_data)), ylab="y",type="l",
        main=expression(y^2 == -(7/17)*x*(x - 5)*(x + 5)*(x + 1)))
points(-1, 0)
points(-1, -0)
points(0, 0)
points(0, -0)
points(-5, 0)
points(-5, -0)
points(5, 0)
points(5, -0)
points(9/5, 168/25)
points(9/5, -168/25)
points(5/16, 525/256)
points(5/16, -525/256)
points(-17/5, 168/25)
points(-17/5, -168/25)
points(1/24, 385/576)
points(1/24, -385/576)
points(25/9, 700/81)
points(25/9, -700/81)
points(20/31, 3150/961)
points(20/31, -3150/961)
points(-35/27, 1400/729)
points(-35/27, -1400/729)
points(-85/53, 8400/2809)
points(-85/53, -8400/2809)
points(121/48, 19019/2304)
points(121/48, -19019/2304)
points(-175/67, 25200/4489)
points(-175/67, -25200/4489)
points(595/131, 115500/17161)
points(595/131, -115500/17161)
points(-605/129, 77000/16641)
points(-605/129, -77000/16641)
points(-625/601, 231000/361201)
points(-625/601, -231000/361201)
</syntaxhighlight>

Latest revision as of 23:45, 4 February 2025

#! /usr/bin/R -f

x_data = seq(-5, 5, 0.01)

Y = function(x) {sqrt(-7/17*x*(x - 5)*(x + 5)*(x + 1))}
svg()
plot( x=c(rev(x_data),x_data), xlab=c("x","curve plotted showing all rational points with H(x) ≤ 1000"),
     y=c(Y(rev(x_data)),-Y(x_data)), ylab="y",type="l",
        main=expression(y^2 == -(7/17)*x*(x - 5)*(x + 5)*(x + 1)))
points(-1, 0)
points(-1, -0)
points(0, 0)
points(0, -0)
points(-5, 0)
points(-5, -0)
points(5, 0)
points(5, -0)
points(9/5, 168/25)
points(9/5, -168/25)
points(5/16, 525/256)
points(5/16, -525/256)
points(-17/5, 168/25)
points(-17/5, -168/25)
points(1/24, 385/576)
points(1/24, -385/576)
points(25/9, 700/81)
points(25/9, -700/81)
points(20/31, 3150/961)
points(20/31, -3150/961)
points(-35/27, 1400/729)
points(-35/27, -1400/729)
points(-85/53, 8400/2809)
points(-85/53, -8400/2809)
points(121/48, 19019/2304)
points(121/48, -19019/2304)
points(-175/67, 25200/4489)
points(-175/67, -25200/4489)
points(595/131, 115500/17161)
points(595/131, -115500/17161)
points(-605/129, 77000/16641)
points(-605/129, -77000/16641)
points(-625/601, 231000/361201)
points(-625/601, -231000/361201)

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current23:39, 4 February 2025Thumbnail for version as of 23:39, 4 February 2025504 × 504 (76 KB)Rational Point (talk | contribs)

You cannot overwrite this file.

The following page uses this file:

Metadata

This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.

If the file has been modified from its original state, some details may not fully reflect the modified file.

Retrieved from "https://www.ellipticcurve.info/index.php?title=File:Rational_points_height_1000.svg&oldid=421"