For a modular form, the q-expansion coefficients are the same as the
Dirichlet coefficients of the associated L-series:
> f := Newforms("30k2")[1,1];
> qExpansion(f,10);
q - q^2 + q^3 + q^4 - q^5 - q^6 - 4*q^7 - q^8 + q^9 + O(q^10)
> Lf := LSeries(f);
> LGetCoefficients(Lf,20);
[* 1, -1, 1, 1, -1, -1, -4, -1, 1, 1, 0, 1, 2, 4, -1, 1, 6, -1, -4, -1 *]
The elliptic curve of conductor 30 that corresponds to f
has, of course, the same L-series.
> E := EllipticCurve(f); E;
Elliptic Curve defined by y^2 + x*y + y = x^3 + x + 2 over Rational Field
> LE := LSeries(E);
> LGetCoefficients(LE,20);
[* 1, -1, 1, 1, -1, -1, -4, -1, 1, 1, 0, 1, 2, 4, -1, 1, 6, -1, -4, -1 *]
Now we change the base field of E to a number field K and evaluate
the L-series of E/K at s=2.
> P<x> := PolynomialRing(Integers());
> K := NumberField(x^3-2);
> LEK := LSeries(E,K);
> i := LSeriesData(LEK); i;
<2, [ 0, 0, 0, 1, 1, 1 ], 8748000, function(p, d [ Precision ]) ... end
function, 1, [], []>
The conductor of this L-series (second entry) is not that small and this is
an indication that the calculations of L(E/K, 2) to the required precision
(30 digits) will take some time. We can also ask how many
coefficients will be used in this calculation.
> LCfRequired(LEK);
24636
Decreasing the precision will help somewhat.
> LSetPrecision(LEK,9);
> LCfRequired(LEK);
3364
Magma now automatically does a factorization of the L-series
(see the Arithmetic section).
> LEK`prod;
[
<L-series of twist of Elliptic Curve defined by y^2 + x*y + y = x^3 + x + 2
over Rational Field by Artin representation S3: (1,1,1) of ext<Q|x^3-2>, 1>,
<L-series of twist of Elliptic Curve defined by y^2 + x*y + y = x^3 + x + 2
over Rational Field by Artin representation S3: (2,0,-1) of ext<Q|x^3-2>,
conductor 108, 1>
]
Factorisation(L) : LSer -> SeqEnum[Tup]
If an L-series is represented internally as a product of
other L-series, say L(s)=∏i Li(s)ni, return the sequence
[...<Li,ni>...].
> L := RiemannZeta();
> Factorization(L);
[ <L-series of Riemann zeta function, 1> ]
> R<x> := PolynomialRing(Rationals());
> K := SplittingField(x^3-2);
> L := LSeries(K);
> Factorization(L);
[
<L-series of Riemann zeta function, 1>,
<L-series of Artin representation S3: (1,-1,1) of ext<Q|x^6+108>, conductor
3, 1>,
<L-series of Artin representation S3: (2,0,-1) of ext<Q|x^6+108>, conductor
108, 2>
]
[Next][Prev] [Right] [Left] [Up] [Index] [Root]