Hot-keys on this page
r m x p toggle line displays
j k next/prev highlighted chunk
0 (zero) top of page
1 (one) first highlighted chunk
""" Elliptic curve constructor
AUTHORS:
- William Stein (2005): Initial version
- John Cremona (2008-01): EllipticCurve(j) fixed for all cases """ from __future__ import absolute_import
#***************************************************************************** # Copyright (C) 2005 William Stein <wstein@gmail.com> # # Distributed under the terms of the GNU General Public License (GPL) # # This code is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # The full text of the GPL is available at: # # http://www.gnu.org/licenses/ #***************************************************************************** from six import string_types, integer_types
import sage.rings.all as rings
from sage.rings.finite_rings.integer_mod_ring import is_IntegerModRing from sage.rings.polynomial.multi_polynomial_ring import is_MPolynomialRing from sage.rings.finite_rings.finite_field_constructor import is_FiniteField from sage.rings.number_field.number_field import is_NumberField from sage.rings.polynomial.multi_polynomial_element import is_MPolynomial from sage.rings.ring import is_Ring
from sage.categories.fields import Fields _Fields = Fields()
from sage.structure.sequence import Sequence from sage.structure.element import parent from sage.structure.factory import UniqueFactory from sage.symbolic.ring import SR from sage.symbolic.expression import is_SymbolicEquation
class EllipticCurveFactory(UniqueFactory): r""" Construct an elliptic curve.
In Sage, an elliptic curve is always specified by (the coefficients of) a long Weierstrass equation
.. MATH::
y^2 + a_1 xy + a_3 y = x^3 + a_2 x^2 + a_4 x + a_6.
INPUT:
There are several ways to construct an elliptic curve:
- ``EllipticCurve([a1,a2,a3,a4,a6])``: Elliptic curve with given `a`-invariants. The invariants are coerced into a common parent. If all are integers, they are coerced into the rational numbers.
- ``EllipticCurve([a4,a6])``: Same as above, but `a_1=a_2=a_3=0`.
- ``EllipticCurve(label)``: Returns the elliptic curve over `\QQ` from the Cremona database with the given label. The label is a string, such as ``"11a"`` or ``"37b2"``. The letters in the label *must* be lower case (Cremona's new labeling).
- ``EllipticCurve(R, [a1,a2,a3,a4,a6])``: Create the elliptic curve over `R` with given `a`-invariants. Here `R` can be an arbitrary commutative ring, although most functionality is only implemented over fields.
- ``EllipticCurve(j=j0)`` or ``EllipticCurve_from_j(j0)``: Return an elliptic curve with `j`-invariant ``j0``.
- ``EllipticCurve(polynomial)``: Read off the `a`-invariants from the polynomial coefficients, see :func:`EllipticCurve_from_Weierstrass_polynomial`.
Instead of giving the coefficients as a *list* of length 2 or 5, one can also give a *tuple*.
EXAMPLES:
We illustrate creating elliptic curves::
sage: EllipticCurve([0,0,1,-1,0]) Elliptic Curve defined by y^2 + y = x^3 - x over Rational Field
We create a curve from a Cremona label::
sage: EllipticCurve('37b2') Elliptic Curve defined by y^2 + y = x^3 + x^2 - 1873*x - 31833 over Rational Field sage: EllipticCurve('5077a') Elliptic Curve defined by y^2 + y = x^3 - 7*x + 6 over Rational Field sage: EllipticCurve('389a') Elliptic Curve defined by y^2 + y = x^3 + x^2 - 2*x over Rational Field
Old Cremona labels are allowed::
sage: EllipticCurve('2400FF') Elliptic Curve defined by y^2 = x^3 + x^2 + 2*x + 8 over Rational Field
Unicode labels are allowed::
sage: EllipticCurve(u'389a') Elliptic Curve defined by y^2 + y = x^3 + x^2 - 2*x over Rational Field
We create curves over a finite field as follows::
sage: EllipticCurve([GF(5)(0),0,1,-1,0]) Elliptic Curve defined by y^2 + y = x^3 + 4*x over Finite Field of size 5 sage: EllipticCurve(GF(5), [0, 0,1,-1,0]) Elliptic Curve defined by y^2 + y = x^3 + 4*x over Finite Field of size 5
Elliptic curves over `\ZZ/N\ZZ` with `N` prime are of type "elliptic curve over a finite field"::
sage: F = Zmod(101) sage: EllipticCurve(F, [2, 3]) Elliptic Curve defined by y^2 = x^3 + 2*x + 3 over Ring of integers modulo 101 sage: E = EllipticCurve([F(2), F(3)]) sage: type(E) <class 'sage.schemes.elliptic_curves.ell_finite_field.EllipticCurve_finite_field_with_category'> sage: E.category() Category of schemes over Ring of integers modulo 101
In contrast, elliptic curves over `\ZZ/N\ZZ` with `N` composite are of type "generic elliptic curve"::
sage: F = Zmod(95) sage: EllipticCurve(F, [2, 3]) Elliptic Curve defined by y^2 = x^3 + 2*x + 3 over Ring of integers modulo 95 sage: E = EllipticCurve([F(2), F(3)]) sage: type(E) <class 'sage.schemes.elliptic_curves.ell_generic.EllipticCurve_generic_with_category'> sage: E.category() Category of schemes over Ring of integers modulo 95
The following is a curve over the complex numbers::
sage: E = EllipticCurve(CC, [0,0,1,-1,0]) sage: E Elliptic Curve defined by y^2 + 1.00000000000000*y = x^3 + (-1.00000000000000)*x over Complex Field with 53 bits of precision sage: E.j_invariant() 2988.97297297297
We can also create elliptic curves by giving the Weierstrass equation::
sage: x, y = var('x,y') sage: EllipticCurve(y^2 + y == x^3 + x - 9) Elliptic Curve defined by y^2 + y = x^3 + x - 9 over Rational Field
sage: R.<x,y> = GF(5)[] sage: EllipticCurve(x^3 + x^2 + 2 - y^2 - y*x) Elliptic Curve defined by y^2 + x*y = x^3 + x^2 + 2 over Finite Field of size 5
We can explicitly specify the `j`-invariant::
sage: E = EllipticCurve(j=1728); E; E.j_invariant(); E.label() Elliptic Curve defined by y^2 = x^3 - x over Rational Field 1728 '32a2'
sage: E = EllipticCurve(j=GF(5)(2)); E; E.j_invariant() Elliptic Curve defined by y^2 = x^3 + x + 1 over Finite Field of size 5 2
See :trac:`6657` ::
sage: EllipticCurve(GF(144169),j=1728) Elliptic Curve defined by y^2 = x^3 + x over Finite Field of size 144169
Elliptic curves over the same ring with the same Weierstrass coefficients are identical, even when they are constructed in different ways (see :trac:`11474`)::
sage: EllipticCurve('11a3') is EllipticCurve(QQ, [0, -1, 1, 0, 0]) True
By default, when a rational value of `j` is given, the constructed curve is a minimal twist (minimal conductor for curves with that `j`-invariant). This can be changed by setting the optional parameter ``minimal_twist``, which is True by default, to False::
sage: EllipticCurve(j=100) Elliptic Curve defined by y^2 = x^3 + x^2 + 3392*x + 307888 over Rational Field sage: E =EllipticCurve(j=100); E Elliptic Curve defined by y^2 = x^3 + x^2 + 3392*x + 307888 over Rational Field sage: E.conductor() 33129800 sage: E.j_invariant() 100 sage: E =EllipticCurve(j=100, minimal_twist=False); E Elliptic Curve defined by y^2 = x^3 + 488400*x - 530076800 over Rational Field sage: E.conductor() 298168200 sage: E.j_invariant() 100
Without this option, constructing the curve could take a long time since both `j` and `j-1728` have to be factored to compute the minimal twist (see :trac:`13100`)::
sage: E = EllipticCurve_from_j(2^256+1,minimal_twist=False) sage: E.j_invariant() == 2^256+1 True
TESTS::
sage: R = ZZ['u', 'v'] sage: EllipticCurve(R, [1,1]) Elliptic Curve defined by y^2 = x^3 + x + 1 over Multivariate Polynomial Ring in u, v over Integer Ring
We create a curve and a point over ``QQbar`` (see :trac:`6879`)::
sage: E = EllipticCurve(QQbar,[0,1]) sage: E(0) (0 : 1 : 0) sage: E.base_field() Algebraic Field
sage: E = EllipticCurve(RR,[1,2]); E; E.base_field() Elliptic Curve defined by y^2 = x^3 + 1.00000000000000*x + 2.00000000000000 over Real Field with 53 bits of precision Real Field with 53 bits of precision sage: EllipticCurve(CC,[3,4]); E; E.base_field() Elliptic Curve defined by y^2 = x^3 + 3.00000000000000*x + 4.00000000000000 over Complex Field with 53 bits of precision Elliptic Curve defined by y^2 = x^3 + 1.00000000000000*x + 2.00000000000000 over Real Field with 53 bits of precision Real Field with 53 bits of precision sage: E = EllipticCurve(QQbar,[5,6]); E; E.base_field() Elliptic Curve defined by y^2 = x^3 + 5*x + 6 over Algebraic Field Algebraic Field
See :trac:`6657` ::
sage: EllipticCurve(3,j=1728) Traceback (most recent call last): ... ValueError: First parameter (if present) must be a ring when j is specified
sage: EllipticCurve(GF(5),j=3/5) Traceback (most recent call last): ... ValueError: First parameter must be a ring containing 3/5
If the universe of the coefficients is a general field, the object constructed has type EllipticCurve_field. Otherwise it is EllipticCurve_generic. See :trac:`9816` ::
sage: E = EllipticCurve([QQbar(1),3]); E Elliptic Curve defined by y^2 = x^3 + x + 3 over Algebraic Field sage: type(E) <class 'sage.schemes.elliptic_curves.ell_field.EllipticCurve_field_with_category'>
sage: E = EllipticCurve([RR(1),3]); E Elliptic Curve defined by y^2 = x^3 + 1.00000000000000*x + 3.00000000000000 over Real Field with 53 bits of precision sage: type(E) <class 'sage.schemes.elliptic_curves.ell_field.EllipticCurve_field_with_category'>
sage: E = EllipticCurve([i,i]); E Elliptic Curve defined by y^2 = x^3 + I*x + I over Symbolic Ring sage: type(E) <class 'sage.schemes.elliptic_curves.ell_field.EllipticCurve_field_with_category'> sage: E.category() Category of schemes over Symbolic Ring sage: SR in Fields() True
sage: F = FractionField(PolynomialRing(QQ,'t')) sage: t = F.gen() sage: E = EllipticCurve([t,0]); E Elliptic Curve defined by y^2 = x^3 + t*x over Fraction Field of Univariate Polynomial Ring in t over Rational Field sage: type(E) <class 'sage.schemes.elliptic_curves.ell_field.EllipticCurve_field_with_category'> sage: E.category() Category of schemes over Fraction Field of Univariate Polynomial Ring in t over Rational Field
See :trac:`12517`::
sage: E = EllipticCurve([1..5]) sage: EllipticCurve(E.a_invariants()) Elliptic Curve defined by y^2 + x*y + 3*y = x^3 + 2*x^2 + 4*x + 5 over Rational Field
See :trac:`11773`::
sage: E = EllipticCurve() Traceback (most recent call last): ... TypeError: invalid input to EllipticCurve constructor
""" def create_key_and_extra_args(self, x=None, y=None, j=None, minimal_twist=True, **kwds): """ Return a ``UniqueFactory`` key and possibly extra parameters.
INPUT:
See the documentation for :class:`EllipticCurveFactory`.
OUTPUT:
A pair ``(key, extra_args)``:
- ``key`` has the form `(R, (a_1, a_2, a_3, a_4, a_6))`, representing a ring and the Weierstrass coefficients of an elliptic curve over that ring;
- ``extra_args`` is a dictionary containing additional data to be inserted into the elliptic curve structure.
EXAMPLES::
sage: EllipticCurve.create_key_and_extra_args(j=8000) ((Rational Field, (0, -1, 0, -3, -1)), {})
When constructing a curve over `\\QQ` from a Cremona or LMFDB label, the invariants from the database are returned as ``extra_args``::
sage: key, data = EllipticCurve.create_key_and_extra_args('389.a1') sage: key (Rational Field, (0, 1, 1, -2, 0)) sage: data['conductor'] 389 sage: data['cremona_label'] '389a1' sage: data['lmfdb_label'] '389.a1' sage: data['rank'] 2 sage: data['torsion_order'] 1
User-specified keywords are also included in ``extra_args``::
sage: key, data = EllipticCurve.create_key_and_extra_args((0, 0, 1, -23737, 960366), rank=4) sage: data['rank'] 4
Furthermore, keywords takes precedence over data from the database, which can be used to specify an alternative set of generators for the Mordell-Weil group::
sage: key, data = EllipticCurve.create_key_and_extra_args('5077a1', gens=[[1, -1], [-2, 3], [4, -7]]) sage: data['gens'] [[1, -1], [-2, 3], [4, -7]] sage: E = EllipticCurve.create_object(0, key, **data) sage: E.gens() [(-2 : 3 : 1), (1 : -1 : 1), (4 : -7 : 1)]
Note that elliptic curves are equal if and only they have the same base ring and Weierstrass equation; the data in ``extra_args`` do not influence comparison of elliptic curves. A consequence of this is that passing keyword arguments only works when constructing an elliptic curve the first time::
sage: E = EllipticCurve('433a1', gens=[[-1, 1], [3, 4]]) sage: E.gens() [(-1 : 1 : 1), (3 : 4 : 1)] sage: E = EllipticCurve('433a1', gens=[[-1, 0], [0, 1]]) sage: E.gens() [(-1 : 1 : 1), (3 : 4 : 1)]
.. WARNING::
Manually specifying extra data is almost never necessary and is not guaranteed to have any effect, as the above example shows. Almost no checking is done, so specifying incorrect data may lead to wrong results of computations instead of errors or warnings.
"""
else: # TODO: This function coefficients_from_cubic() is not defined anywhere! x = coefficients_from_cubic(x, y, morphism=False)
# Interpret x as a Cremona or LMFDB label. # User-provided keywords may override database entries.
raise ValueError("sequence of coefficients must have length 2 or 5")
def create_object(self, version, key, **kwds): """ Create an object from a ``UniqueFactory`` key.
EXAMPLES::
sage: E = EllipticCurve.create_object(0, (GF(3), (1, 2, 0, 1, 2))) sage: type(E) <class 'sage.schemes.elliptic_curves.ell_finite_field.EllipticCurve_finite_field_with_category'>
.. NOTE::
Keyword arguments are currently only passed to the constructor for elliptic curves over `\\QQ`; elliptic curves over other fields do not support them.
"""
EllipticCurve = EllipticCurveFactory('sage.schemes.elliptic_curves.constructor.EllipticCurve')
def EllipticCurve_from_Weierstrass_polynomial(f): """ Return the elliptic curve defined by a cubic in (long) Weierstrass form.
INPUT:
- ``f`` -- a inhomogeneous cubic polynomial in long Weierstrass form.
OUTPUT:
The elliptic curve defined by it.
EXAMPLES::
sage: R.<x,y> = QQ[] sage: f = y^2 + 1*x*y + 3*y - (x^3 + 2*x^2 + 4*x + 6) sage: EllipticCurve(f) Elliptic Curve defined by y^2 + x*y + 3*y = x^3 + 2*x^2 + 4*x + 6 over Rational Field sage: EllipticCurve(f).a_invariants() (1, 2, 3, 4, 6)
The polynomial ring may have extra variables as long as they do not occur in the polynomial itself::
sage: R.<x,y,z,w> = QQ[] sage: EllipticCurve(-y^2 + x^3 + 1) Elliptic Curve defined by y^2 = x^3 + 1 over Rational Field sage: EllipticCurve(-x^2 + y^3 + 1) Elliptic Curve defined by y^2 = x^3 + 1 over Rational Field sage: EllipticCurve(-w^2 + z^3 + 1) Elliptic Curve defined by y^2 = x^3 + 1 over Rational Field
TESTS::
sage: from sage.schemes.elliptic_curves.constructor import EllipticCurve_from_Weierstrass_polynomial sage: EllipticCurve_from_Weierstrass_polynomial(-w^2 + z^3 + 1) Elliptic Curve defined by y^2 = x^3 + 1 over Rational Field """
def coefficients_from_Weierstrass_polynomial(f): """ Return the coefficients `[a_1, a_2, a_3, a_4, a_6]` of a cubic in Weierstrass form.
EXAMPLES::
sage: from sage.schemes.elliptic_curves.constructor import coefficients_from_Weierstrass_polynomial sage: R.<w,z> = QQ[] sage: coefficients_from_Weierstrass_polynomial(-w^2 + z^3 + 1) [0, 0, 0, 0, 1] """ except IndexError: raise ValueError('polynomial is not in long Weierstrass form')
else: raise ValueError('polynomial is not in long Weierstrass form')
raise ValueError('the coefficient of x^3 and -y^2 must be the same')
def EllipticCurve_from_c4c6(c4, c6): """ Return an elliptic curve with given `c_4` and `c_6` invariants.
EXAMPLES::
sage: E = EllipticCurve_from_c4c6(17, -2005) sage: E Elliptic Curve defined by y^2 = x^3 - 17/48*x + 2005/864 over Rational Field sage: E.c_invariants() (17, -2005) """ except AttributeError: K = rings.RationalField()
def EllipticCurve_from_j(j, minimal_twist=True): """ Return an elliptic curve with given `j`-invariant.
INPUT:
- ``j`` -- an element of some field.
- ``minimal_twist`` (boolean, default True) -- If True and ``j`` is in `\QQ`, the curve returned is a minimal twist, i.e. has minimal conductor. If `j` is not in `\QQ` this parameter is ignored.
OUTPUT:
An elliptic curve with `j`-invariant `j`.
EXAMPLES::
sage: E = EllipticCurve_from_j(0); E; E.j_invariant(); E.label() Elliptic Curve defined by y^2 + y = x^3 over Rational Field 0 '27a3'
sage: E = EllipticCurve_from_j(1728); E; E.j_invariant(); E.label() Elliptic Curve defined by y^2 = x^3 - x over Rational Field 1728 '32a2'
sage: E = EllipticCurve_from_j(1); E; E.j_invariant() Elliptic Curve defined by y^2 + x*y = x^3 + 36*x + 3455 over Rational Field 1
The ``minimal_twist`` parameter (ignored except over `\QQ` and True by default) controls whether or not a minimal twist is computed::
sage: EllipticCurve_from_j(100) Elliptic Curve defined by y^2 = x^3 + x^2 + 3392*x + 307888 over Rational Field sage: _.conductor() 33129800 sage: EllipticCurve_from_j(100, minimal_twist=False) Elliptic Curve defined by y^2 = x^3 + 488400*x - 530076800 over Rational Field sage: _.conductor() 298168200
Since computing the minimal twist requires factoring both `j` and `j-1728` the following example would take a long time without setting ``minimal_twist`` to False::
sage: E = EllipticCurve_from_j(2^256+1,minimal_twist=False) sage: E.j_invariant() == 2^256+1 True
"""
def coefficients_from_j(j, minimal_twist=True): """ Return Weierstrass coefficients `(a_1, a_2, a_3, a_4, a_6)` for an elliptic curve with given `j`-invariant.
INPUT:
See :func:`EllipticCurve_from_j`.
EXAMPLES::
sage: from sage.schemes.elliptic_curves.constructor import coefficients_from_j sage: coefficients_from_j(0) [0, 0, 1, 0, 0] sage: coefficients_from_j(1728) [0, 0, 0, -1, 0] sage: coefficients_from_j(1) [1, 0, 0, 36, 3455]
The ``minimal_twist`` parameter (ignored except over `\\QQ` and True by default) controls whether or not a minimal twist is computed::
sage: coefficients_from_j(100) [0, 1, 0, 3392, 307888] sage: coefficients_from_j(100, minimal_twist=False) [0, 0, 0, 488400, -530076800] """ except AttributeError: K = rings.RationalField()
else: else:
# we construct the minimal twist, i.e. the curve with minimal # conductor with this j_invariant:
# Now E=[0,0,0,a4,a6] has j-invariant j=n/d
# Now E=[0,0,0,a4,a6] is minimal at all p != 2,3
# defaults for all other fields:
def EllipticCurve_from_cubic(F, P=None, morphism=True): r""" Construct an elliptic curve from a ternary cubic with a rational point.
If you just want the Weierstrass form and are not interested in the morphism then it is easier to use the function :func:`~sage.schemes.elliptic_curves.jacobian.Jacobian` instead. If there is a rational point on the given cubic, this function will construct the same elliptic curve but you do not have to supply the point ``P``.
INPUT:
- ``F`` -- a homogeneous cubic in three variables with rational coefficients, as a polynomial ring element, defining a smooth plane cubic curve `C`.
- ``P`` -- a 3-tuple `(x,y,z)` defining a projective point on `C`, or ``None``. If ``None`` then a rational flex will be used as a base point if one exists, otherwise an error will be raised.
- ``morphism`` -- boolean (default: ``True``). If ``True`` returns a birational isomorphism from `C` to a Weierstrass elliptic curve `E`, otherwise just returns `E`.
OUTPUT:
Either (when ``morphism``=``False``) an elliptic curve `E` in long Weierstrass form isomorphic to the plane cubic curve `C` defined by the equation `F=0`.
Or (when ``morphism=True``), a birational isomorphism from `C` to the elliptic curve `E`. If the given point is a flex, this is a linear isomorphism.
.. NOTE::
The function :func:`~sage.schemes.elliptic_curves.jacobian.Jacobian` may be used instead. It constructs the same elliptic curve (which is in all cases the Jacobian of `(F=0)`) and needs no base point to be provided, but also returns no isomorphism since in general there is none: the plane cubic is only isomorphic to its Jacobian when it has a rational point.
.. NOTE::
When ``morphism=True``, a birational isomorphism between the curve `F=0` and the Weierstrass curve is returned. If the point happens to be a flex, then this is a linear isomorphism. The morphism does not necessarily take the given point `P` to the point at infinity on `E`, since we always use a rational flex on `C` as base-point when one exists.
EXAMPLES:
First we find that the Fermat cubic is isomorphic to the curve with Cremona label 27a1::
sage: R.<x,y,z> = QQ[] sage: cubic = x^3+y^3+z^3 sage: P = [1,-1,0] sage: E = EllipticCurve_from_cubic(cubic, P, morphism=False); E Elliptic Curve defined by y^2 - 9*y = x^3 - 27 over Rational Field sage: E.cremona_label() '27a1' sage: EllipticCurve_from_cubic(cubic, [0,1,-1], morphism=False).cremona_label() '27a1' sage: EllipticCurve_from_cubic(cubic, [1,0,-1], morphism=False).cremona_label() '27a1'
Next we find the minimal model and conductor of the Jacobian of the Selmer curve::
sage: R.<a,b,c> = QQ[] sage: cubic = a^3+b^3+60*c^3 sage: P = [1,-1,0] sage: E = EllipticCurve_from_cubic(cubic, P, morphism=False); E Elliptic Curve defined by y^2 - 540*y = x^3 - 97200 over Rational Field sage: E.minimal_model() Elliptic Curve defined by y^2 = x^3 - 24300 over Rational Field sage: E.conductor() 24300
We can also get the birational isomorphism to and from the Weierstrass form. We start with an example where ``P`` is a flex and the equivalence is a linear isomorphism::
sage: f = EllipticCurve_from_cubic(cubic, P, morphism=True) sage: f Scheme morphism: From: Projective Plane Curve over Rational Field defined by a^3 + b^3 + 60*c^3 To: Elliptic Curve defined by y^2 - 540*y = x^3 - 97200 over Rational Field Defn: Defined on coordinates by sending (a : b : c) to (-c : 3*a : 1/180*a + 1/180*b)
sage: finv = f.inverse(); finv Scheme morphism: From: Elliptic Curve defined by y^2 - 540*y = x^3 - 97200 over Rational Field To: Projective Plane Curve over Rational Field defined by a^3 + b^3 + 60*c^3 Defn: Defined on coordinates by sending (x : y : z) to (1/3*y : -1/3*y + 180*z : -x)
Scheme morphism: From: Elliptic Curve defined by y^2 + 2*x*y + 20*y = x^3 - x^2 - 20*x - 400/3 over Rational Field To: Closed subscheme of Projective Space of dimension 2 over Rational Field defined by: a^3 + b^3 + 60*c^3 Defn: Defined on coordinates by sending (x : y : z) to (x + y + 20*z : -x - y : -x)
We verify that `f` maps the chosen point `P=(1,-1,0)` on the cubic to the origin of the elliptic curve::
sage: f([1,-1,0]) (0 : 1 : 0) sage: finv([0,1,0]) (-1 : 1 : 0)
To verify the output, we plug in the polynomials to check that this indeed transforms the cubic into Weierstrass form::
sage: cubic(finv.defining_polynomials()) * finv.post_rescaling() -x^3 + y^2*z - 540*y*z^2 + 97200*z^3
sage: E.defining_polynomial()(f.defining_polynomials()) * f.post_rescaling() a^3 + b^3 + 60*c^3
If the given point is not a flex and the cubic has no rational flexes, then the cubic can not be transformed to a Weierstrass equation by a linear transformation. The general birational transformation is still a birational isomorphism, but is quadratic::
sage: R.<x,y,z> = QQ[] sage: cubic = x^2*y + 4*x*y^2 + x^2*z + 8*x*y*z + 4*y^2*z + 9*x*z^2 + 9*y*z^2 sage: f = EllipticCurve_from_cubic(cubic, [1,-1,1], morphism=True); f Scheme morphism: From: Projective Plane Curve over Rational Field defined by x^2*y + 4*x*y^2 + x^2*z + 8*x*y*z + 4*y^2*z + 9*x*z^2 + 9*y*z^2 To: Elliptic Curve defined by y^2 + 7560/19*x*y + 552960000000/2352637*y = x^3 - 3445200/133*x^2 over Rational Field Defn: Defined on coordinates by sending (x : y : z) to (2527/17280*x^2 + 133/2160*x*y + 133/108000*y^2 + 133/2880*x*z + 931/18000*y*z - 3857/48000*z^2 : -6859/288*x^2 + 323/36*x*y + 359/1800*y^2 + 551/48*x*z + 2813/300*y*z + 24389/800*z^2 : -2352637/99532800000*x^2 - 2352637/124416000000*x*y - 2352637/622080000000*y^2 + 2352637/82944000000*x*z + 2352637/207360000000*y*z - 2352637/276480000000*z^2)
Note that the morphism returned cannot be evaluated directly at the given point ``P=(1:-1:1)`` since the polynomials defining it all vanish there::
sage: f([1,-1,1]) Traceback (most recent call last): ... ValueError: [0, 0, 0] does not define a valid point since all entries are 0
Using the group law on the codomain elliptic curve, which has rank 1 and full 2-torsion, and the inverse morphism, we can find many points on the cubic. First we find the preimages of multiples of the generator::
sage: E = f.codomain() sage: E.label() '720e2' sage: E.rank() 1 sage: R = E.gens()[0]; R (-17280000/2527 : 9331200000/6859 : 1) sage: finv = f.inverse() sage: [finv(k*R) for k in range(1,10)] [(-4 : 1 : 0), (-1 : 4 : 1), (-20 : -55/76 : 1), (319/399 : -11339/7539 : 1), (159919/14360 : -4078139/1327840 : 1), (-27809119/63578639 : 1856146436/3425378659 : 1), (-510646582340/56909753439 : 424000923715/30153806197284 : 1), (-56686114363679/4050436059492161 : -2433034816977728281/1072927821085503881 : 1), (650589589099815846721/72056273157352822480 : -347376189546061993109881/194127383495944026752320 : 1)]
The elliptic curve also has torsion, which we can map back::
sage: E.torsion_points() [(-144000000/17689 : 3533760000000/2352637 : 1), (-92160000/17689 : 2162073600000/2352637 : 1), (-5760000/17689 : -124070400000/2352637 : 1), (0 : 1 : 0)] sage: [finv(Q) for Q in E.torsion_points() if Q] [(9 : -9/4 : 1), (-9 : 0 : 1), (0 : 1 : 0)]
In this example, the given point ``P`` is not a flex but the cubic does have a rational flex, ``(-4:0:1)``. We return a linear isomorphism which maps this flex to the point at infinity on the Weierstrass model::
sage: R.<a,b,c> = QQ[] sage: cubic = a^3+7*b^3+64*c^3 sage: P = [2,2,-1] sage: f = EllipticCurve_from_cubic(cubic, P, morphism=True) sage: E = f.codomain(); E Elliptic Curve defined by y^2 - 258048*y = x^3 - 22196256768 over Rational Field sage: E.minimal_model() Elliptic Curve defined by y^2 + y = x^3 - 331 over Rational Field
sage: f Scheme morphism: From: Projective Plane Curve over Rational Field defined by a^3 + 7*b^3 + 64*c^3 To: Elliptic Curve defined by y^2 - 258048*y = x^3 - 22196256768 over Rational Field Defn: Defined on coordinates by sending (a : b : c) to (b : -48*a : -1/5376*a - 1/1344*c)
sage: finv = f.inverse(); finv Scheme morphism: From: Elliptic Curve defined by y^2 - 258048*y = x^3 - 22196256768 over Rational Field To: Projective Plane Curve over Rational Field defined by a^3 + 7*b^3 + 64*c^3 Defn: Defined on coordinates by sending (x : y : z) to (-1/48*y : x : 1/192*y - 1344*z)
sage: cubic(finv.defining_polynomials()) * finv.post_rescaling() -x^3 + y^2*z - 258048*y*z^2 + 22196256768*z^3
sage: E.defining_polynomial()(f.defining_polynomials()) * f.post_rescaling() a^3 + 7*b^3 + 64*c^3
sage: f(P) (5376 : -258048 : 1) sage: f([-4,0,1]) (0 : 1 : 0)
It is possible to not provide a base point ``P`` provided that the cubic has a rational flex. In this case the flexes will be found and one will be used as a base point::
sage: R.<x,y,z> = QQ[] sage: cubic = x^3+y^3+z^3 sage: f = EllipticCurve_from_cubic(cubic, morphism=True) sage: f Scheme morphism: From: Projective Plane Curve over Rational Field defined by x^3 + y^3 + z^3 To: Elliptic Curve defined by y^2 - 9*y = x^3 - 27 over Rational Field Defn: Defined on coordinates by sending (x : y : z) to (y : -3*x : -1/3*x - 1/3*z)
An error will be raised if no point is given and there are no rational flexes::
sage: R.<x,y,z> = QQ[] sage: cubic = 3*x^3+4*y^3+5*z^3 sage: EllipticCurve_from_cubic(cubic) Traceback (most recent call last): ... ValueError: A point must be given when the cubic has no rational flexes
An example over a finite field, using a flex::
sage: K = GF(17) sage: R.<x,y,z> = K[] sage: cubic = 2*x^3+3*y^3+4*z^3 sage: EllipticCurve_from_cubic(cubic,[0,3,1]) Scheme morphism: From: Projective Plane Curve over Finite Field of size 17 defined by 2*x^3 + 3*y^3 + 4*z^3 To: Elliptic Curve defined by y^2 + 16*y = x^3 + 11 over Finite Field of size 17 Defn: Defined on coordinates by sending (x : y : z) to (-x : 4*y : 4*y + 5*z)
An example in characteristic 3::
sage: K = GF(3) sage: R.<x,y,z> = K[] sage: cubic = x^3+y^3+z^3+x*y*z sage: EllipticCurve_from_cubic(cubic,[0,1,-1]) Scheme morphism: From: Projective Plane Curve over Finite Field of size 3 defined by x^3 + y^3 + x*y*z + z^3 To: Elliptic Curve defined by y^2 + x*y = x^3 + 1 over Finite Field of size 3 Defn: Defined on coordinates by sending (x : y : z) to (y + z : -y : x)
An example over a number field, using a non-flex and where there are no rational flexes::
sage: K.<a> = QuadraticField(-3) sage: R.<x,y,z> = K[] sage: cubic = 2*x^3+3*y^3+5*z^3 sage: EllipticCurve_from_cubic(cubic,[1,1,-1]) Scheme morphism: From: Projective Plane Curve over Number Field in a with defining polynomial x^2 + 3 defined by 2*x^3 + 3*y^3 + 5*z^3 To: Elliptic Curve defined by y^2 + 1754460/2053*x*y + 5226454388736000/8653002877*y = x^3 + (-652253285700/4214809)*x^2 over Number Field in a with defining polynomial x^2 + 3 Defn: Defined on coordinates by sending (x : y : z) to (-16424/127575*x^2 - 231989/680400*x*y - 14371/64800*y^2 - 26689/81648*x*z - 10265/27216*y*z - 2053/163296*z^2 : 24496/315*x^2 + 119243/840*x*y + 4837/80*y^2 + 67259/504*x*z + 25507/168*y*z + 5135/1008*z^2 : 8653002877/2099914709760000*x^2 + 8653002877/699971569920000*x*y + 8653002877/933295426560000*y^2 + 8653002877/419982941952000*x*z + 8653002877/279988627968000*y*z + 8653002877/335986353561600*z^2)
An example over a function field, using a non-flex::
sage: K.<t> = FunctionField(QQ) sage: R.<x,y,z> = K[] sage: cubic = x^3+t*y^3+(1+t)*z^3 sage: EllipticCurve_from_cubic(cubic,[1,1,-1], morphism=False) Elliptic Curve defined by y^2 + ((-236196*t^6-708588*t^5-1180980*t^4-1180980*t^3-708588*t^2-236196*t)/(-1458*t^6-17496*t^5+4374*t^4+29160*t^3+4374*t^2-17496*t-1458))*x*y + ((-459165024*t^14-5969145312*t^13-34207794288*t^12-113872925952*t^11-244304490582*t^10-354331909458*t^9-354331909458*t^8-244304490582*t^7-113872925952*t^6-34207794288*t^5-5969145312*t^4-459165024*t^3)/(-1458*t^14-58320*t^13-841266*t^12-5137992*t^11-11773350*t^10-7709904*t^9+12627738*t^8+25789104*t^7+12627738*t^6-7709904*t^5-11773350*t^4-5137992*t^3-841266*t^2-58320*t-1458))*y = x^3 + ((-118098*t^12-708588*t^11+944784*t^10+11219310*t^9+27871128*t^8+36374184*t^7+27871128*t^6+11219310*t^5+944784*t^4-708588*t^3-118098*t^2)/(-54*t^12-1296*t^11-7452*t^10+6048*t^9+25758*t^8-3888*t^7-38232*t^6-3888*t^5+25758*t^4+6048*t^3-7452*t^2-1296*t-54))*x^2 over Rational function field in t over Rational Field
TESTS:
Here is a test for :trac:`21092`::
sage: R.<x,y,z> = QQ[] sage: cubic = -3*x^2*y + 3*x*y^2 + 4*x^2*z + 4*y^2*z - 3*x*z^2 + 3*y*z^2 - 8*z^3 sage: EllipticCurve_from_cubic(cubic, (-4/5, 4/5, 3/5) ) Scheme morphism: From: Projective Plane Curve over Rational Field defined by -3*x^2*y + 3*x*y^2 + 4*x^2*z + 4*y^2*z - 3*x*z^2 + 3*y*z^2 - 8*z^3 To: Elliptic Curve defined by y^2 + 24*x*y + 3024*y = x^3 + 495*x^2 + 36288*x over Rational Field Defn: Defined on coordinates by sending (x : y : z) to (-1/3*z : 3*x : -1/1008*x + 1/1008*y + 1/378*z) """ WeierstrassTransformationWithInverse
# check the input raise TypeError('equation must be a polynomial') raise TypeError('equation must be a polynomial in three variables') raise TypeError('equation must be a homogeneous polynomial')
except (TypeError, ValueError): raise TypeError('{} does not define a point on a projective curve over {} defined by {}'.format(P,K,F))
# Test whether P is a flex; if not test whether there are any rational flexes:
else: else:
# find an invertible matrix M such that (0,1,0)M=P and # ML'=(0,0,1)' where L=[dx,dy,dx]. Then the linea transform # by M takes P to [0,1,0] and L to Z=0:
else: Q1 = [-dy,dx,0] Q2 = [1,0,0] if dx else [0,1,0]
# assert M.is_invertible() # assert list(vector([0,1,0])*M) == P # assert list(M*vector([dx,dy,dz]))[:2] == [0,0]
# scale and dehomogenise
# assert F3.coefficient(x**3) == -1 # assert F3.coefficient(y*y*z) == 1
# Construct the (linear) morphism
else: # Second case: no flexes # assert Qlist # assert Qlist
# NB This construction of P3 relies on P2 not being a flex. # If we want to use a non-flex as P when there are rational # flexes this would be a problem. However, the only condition # which P3 must satisfy is that it is on the tangent at P2, it # need not lie on the cubic.
# send P, P2, P3 to (1:0:0), (0:1:0), (0:0:1) respectively # assert F(xyzM)==F2
# substitute x = U^2, y = V*W, z = U*W, and rename (x,y,z)=(U,V,W) # assert F3 == F(xyzC) // S1
# scale and dehomogenise
# assert F4.coefficient(x**3) == -1 # assert F4.coefficient(y*y*z) == 1 # assert F4 == F(xyzW) // S2
# assert F4==F(inv_defining_poly)*inv_post # assert F4(fwd_defining_poly)*fwd_post == F
# Construct the morphism
C, E, fwd_defining_poly, fwd_post, inv_defining_poly, inv_post)
def tangent_at_smooth_point(C,P): """Return the tangent at the smooth point `P` of projective curve `C`.
INPUT:
- ``C`` -- a projective plane curve.
- ``P`` -- a 3-tuple `(x,y,z)` defining a projective point on `C`.
OUTPUT:
The linear form defining the tangent at `P` to `C`.
EXAMPLES::
sage: R.<x,y,z> = QQ[] sage: from sage.schemes.elliptic_curves.constructor import tangent_at_smooth_point sage: C = Curve(x^3+y^3+60*z^3) sage: tangent_at_smooth_point(C, [1,-1,0]) x + y
sage: K.<t> = FunctionField(QQ) sage: R.<x,y,z> = K[] sage: C = Curve(x^3+2*y^3+3*z^3) sage: from sage.schemes.elliptic_curves.constructor import tangent_at_smooth_point sage: tangent_at_smooth_point(C,[1,1,-1]) 3*x + 6*y + 9*z """ # Over function fields such as QQ(t) an error is raised with the # default (factor=True). Note that factor=False returns the # product of the tangents in case of a multiple point, while here # `P` is assumed smooth so factorization is unnecessary, but over # QQ (for example) including the factorization gives better # results, for example returning x+y instead of 3x+3y in the # doctest.
def chord_and_tangent(F, P): """Return the third point of intersection of a cubic with the tangent at one point.
INPUT:
- ``F`` -- a homogeneous cubic in three variables with rational coefficients, as a polynomial ring element, defining a smooth plane cubic curve.
- ``P`` -- a 3-tuple `(x,y,z)` defining a projective point on the curve `F=0`.
OUTPUT:
A point ``Q`` such that ``F(Q)=0``, namely the third point of intersection of the tangent at ``P`` with the curve ``F=0``, so ``Q=P`` if and only if ``P`` is a flex.
EXAMPLES::
sage: R.<x,y,z> = QQ[] sage: from sage.schemes.elliptic_curves.constructor import chord_and_tangent sage: F = x^3+y^3+60*z^3 sage: chord_and_tangent(F, [1,-1,0]) (-1 : 1 : 0)
sage: F = x^3+7*y^3+64*z^3 sage: p0 = [2,2,-1] sage: p1 = chord_and_tangent(F, p0); p1 (5 : -3 : 1) sage: p2 = chord_and_tangent(F, p1); p2 (-1265/314 : 183/314 : 1)
TESTS::
sage: F(list(p2)) 0 sage: list(map(type, p2)) [<... 'sage.rings.rational.Rational'>, <... 'sage.rings.rational.Rational'>, <... 'sage.rings.rational.Rational'>]
See :trac:`16068`::
sage: F = x**3 - 4*x**2*y - 65*x*y**2 + 3*x*y*z - 76*y*z**2 sage: chord_and_tangent(F, [0, 1, 0]) (0 : 0 : 1)
""" # check the input raise TypeError('equation must be a polynomial') raise TypeError('{} is not a polynomial in three variables'.format(F)) raise TypeError('{} is not a homogeneous polynomial'.format(F)) raise TypeError('{} is not a projective point'.format(P)) except (TypeError, ValueError): raise TypeError('{} does not define a point on a projective curve over {} defined by {}'.format(P,K,F))
def projective_point(p): """ Return equivalent point with denominators removed
INPUT:
- ``P``, ``Q`` -- list/tuple of projective coordinates.
OUTPUT:
List of projective coordinates.
EXAMPLES::
sage: from sage.schemes.elliptic_curves.constructor import projective_point sage: projective_point([4/5, 6/5, 8/5]) [2, 3, 4] sage: F = GF(11) sage: projective_point([F(4), F(8), F(2)]) [4, 8, 2] """
def are_projectively_equivalent(P, Q, base_ring): """ Test whether ``P`` and ``Q`` are projectively equivalent.
INPUT:
- ``P``, ``Q`` -- list/tuple of projective coordinates.
- ``base_ring`` -- the base ring.
OUTPUT:
Boolean.
EXAMPLES::
sage: from sage.schemes.elliptic_curves.constructor import are_projectively_equivalent sage: are_projectively_equivalent([0,1,2,3], [0,1,2,2], base_ring=QQ) False sage: are_projectively_equivalent([0,1,2,3], [0,2,4,6], base_ring=QQ) True """
def EllipticCurve_from_plane_curve(C, P): """ Deprecated way to construct an elliptic curve.
Use :meth:`~sage.schemes.elliptic_curves.jacobian.Jacobian` instead.
EXAMPLES::
sage: R.<x,y,z> = QQ[] sage: C = Curve(x^3+y^3+z^3) sage: P = C(1,-1,0) sage: E = EllipticCurve_from_plane_curve(C,P); E # long time (3s on sage.math, 2013) doctest:...: DeprecationWarning: use Jacobian(C) instead See http://trac.sagemath.org/3416 for details. Elliptic Curve defined by y^2 = x^3 - 27/4 over Rational Field """ from sage.misc.superseded import deprecation deprecation(3416, 'use Jacobian(C) instead') # Note: this function never used the rational point from sage.schemes.elliptic_curves.jacobian import Jacobian return Jacobian(C)
def EllipticCurves_with_good_reduction_outside_S(S=[], proof=None, verbose=False): r""" Returns a sorted list of all elliptic curves defined over `Q` with good reduction outside the set `S` of primes.
INPUT:
- ``S`` - list of primes (default: empty list).
- ``proof`` - True/False (default True): the MW basis for auxiliary curves will be computed with this proof flag.
- ``verbose`` - True/False (default False): if True, some details of the computation will be output.
.. NOTE::
Proof flag: The algorithm used requires determining all S-integral points on several auxiliary curves, which in turn requires the computation of their generators. This is not always possible (even in theory) using current knowledge.
The value of this flag is passed to the function which computes generators of various auxiliary elliptic curves, in order to find their S-integral points. Set to False if the default (True) causes warning messages, but note that you can then not rely on the set of curves returned being complete.
EXAMPLES::
sage: EllipticCurves_with_good_reduction_outside_S([]) [] sage: elist = EllipticCurves_with_good_reduction_outside_S([2]) sage: elist [Elliptic Curve defined by y^2 = x^3 + 4*x over Rational Field, Elliptic Curve defined by y^2 = x^3 - x over Rational Field, ... Elliptic Curve defined by y^2 = x^3 - x^2 - 13*x + 21 over Rational Field] sage: len(elist) 24 sage: ', '.join([e.label() for e in elist]) '32a1, 32a2, 32a3, 32a4, 64a1, 64a2, 64a3, 64a4, 128a1, 128a2, 128b1, 128b2, 128c1, 128c2, 128d1, 128d2, 256a1, 256a2, 256b1, 256b2, 256c1, 256c2, 256d1, 256d2'
Without ``Proof=False``, this example gives two warnings::
sage: elist = EllipticCurves_with_good_reduction_outside_S([11],proof=False) # long time (14s on sage.math, 2011) sage: len(elist) # long time 12 sage: ', '.join([e.label() for e in elist]) # long time '11a1, 11a2, 11a3, 121a1, 121a2, 121b1, 121b2, 121c1, 121c2, 121d1, 121d2, 121d3'
sage: elist = EllipticCurves_with_good_reduction_outside_S([2,3]) # long time (26s on sage.math, 2011) sage: len(elist) # long time 752 sage: max([e.conductor() for e in elist]) # long time 62208 sage: [N.factor() for N in Set([e.conductor() for e in elist])] # long time [2^7, 2^8, 2^3 * 3^4, 2^2 * 3^3, 2^8 * 3^4, 2^4 * 3^4, 2^3 * 3, 2^7 * 3, 2^3 * 3^5, 3^3, 2^8 * 3, 2^5 * 3^4, 2^4 * 3, 2 * 3^4, 2^2 * 3^2, 2^6 * 3^4, 2^6, 2^7 * 3^2, 2^4 * 3^5, 2^4 * 3^3, 2 * 3^3, 2^6 * 3^3, 2^6 * 3, 2^5, 2^2 * 3^4, 2^3 * 3^2, 2^5 * 3, 2^7 * 3^4, 2^2 * 3^5, 2^8 * 3^2, 2^5 * 3^2, 2^7 * 3^5, 2^8 * 3^5, 2^3 * 3^3, 2^8 * 3^3, 2^5 * 3^5, 2^4 * 3^2, 2 * 3^5, 2^5 * 3^3, 2^6 * 3^5, 2^7 * 3^3, 3^5, 2^6 * 3^2] """ |