
| Current Path : /usr/share/gap/doc/ref/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //usr/share/gap/doc/ref/chap60.txt |
[1X60 [33X[0;0YAbelian Number Fields[133X[101X
[33X[0;0YAn [13Xabelian number field[113X is a field in characteristic zero that is a finite
dimensional normal extension of its prime field such that the Galois group
is abelian. In [5XGAP[105X, one implementation of abelian number fields is given by
fields of cyclotomic numbers (see Chapter [14X18[114X). Note that abelian number
fields can also be constructed with the more general [2XAlgebraicExtension[102X
([14X67.1-1[114X), a discussion of advantages and disadvantages can be found in [14X18.6[114X.
The functions described in this chapter have been developed for fields whose
elements are in the filter [2XIsCyclotomic[102X ([14X18.1-3[114X), they may or may not work
well for abelian number fields consisting of other kinds of elements.[133X
[33X[0;0YThroughout this chapter, [22Xℚ_n[122X will denote the cyclotomic field generated by
the field [22Xℚ[122X of rationals together with [22Xn[122X-th roots of unity.[133X
[33X[0;0YIn [14X60.1[114X, constructors for abelian number fields are described, [14X60.2[114X
introduces operations for abelian number fields, [14X60.3[114X deals with the vector
space structure of abelian number fields, and [14X60.4[114X describes field
automorphisms of abelian number fields,[133X
[1X60.1 [33X[0;0YConstruction of Abelian Number Fields[133X[101X
[33X[0;0YBesides the usual construction using [2XField[102X ([14X58.1-3[114X) or [2XDefaultField[102X
([14X18.1-16[114X) (see [2XDefaultField[102X ([14X18.1-16[114X)), abelian number fields consisting of
cyclotomics can be created with [2XCyclotomicField[102X ([14X60.1-1[114X) and
[2XAbelianNumberField[102X ([14X60.1-2[114X).[133X
[1X60.1-1 CyclotomicField[101X
[33X[1;0Y[29X[2XCyclotomicField[102X( [[3Xsubfield[103X, ][3Xn[103X ) [32X function[133X
[33X[1;0Y[29X[2XCyclotomicField[102X( [[3Xsubfield[103X, ][3Xgens[103X ) [32X function[133X
[33X[1;0Y[29X[2XCF[102X( [[3Xsubfield[103X, ][3Xn[103X ) [32X function[133X
[33X[1;0Y[29X[2XCF[102X( [[3Xsubfield[103X, ][3Xgens[103X ) [32X function[133X
[33X[0;0YThe first version creates the [3Xn[103X-th cyclotomic field [22Xℚ_n[122X. The second version
creates the smallest cyclotomic field containing the elements in the list
[3Xgens[103X. In both cases the field can be generated as an extension of a
designated subfield [3Xsubfield[103X (cf. [14X60.3[114X).[133X
[33X[0;0Y[2XCyclotomicField[102X can be abbreviated to [2XCF[102X, this form is used also when [5XGAP[105X
prints cyclotomic fields.[133X
[33X[0;0YFields constructed with the one argument version of [2XCF[102X are stored in the
global list [10XCYCLOTOMIC_FIELDS[110X, so repeated calls of [2XCF[102X just fetch these
field objects after they have been created once.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XCyclotomicField( 5 ); CyclotomicField( [ Sqrt(3) ] );[127X[104X
[4X[28XCF(5)[128X[104X
[4X[28XCF(12)[128X[104X
[4X[25Xgap>[125X [27XCF( CF(3), 12 ); CF( CF(4), [ Sqrt(7) ] );[127X[104X
[4X[28XAsField( CF(3), CF(12) )[128X[104X
[4X[28XAsField( GaussianRationals, CF(28) )[128X[104X
[4X[32X[104X
[1X60.1-2 AbelianNumberField[101X
[33X[1;0Y[29X[2XAbelianNumberField[102X( [3Xn[103X, [3Xstab[103X ) [32X function[133X
[33X[1;0Y[29X[2XNF[102X( [3Xn[103X, [3Xstab[103X ) [32X function[133X
[33X[0;0YFor a positive integer [3Xn[103X and a list [3Xstab[103X of prime residues modulo [3Xn[103X,
[2XAbelianNumberField[102X returns the fixed field of the group described by [3Xstab[103X
(cf. [2XGaloisStabilizer[102X ([14X60.2-5[114X)), in the [3Xn[103X-th cyclotomic field.
[2XAbelianNumberField[102X is mainly thought for internal use and for printing
fields in a standard way; [2XField[102X ([14X58.1-3[114X) (cf. also [14X60.2[114X) is probably more
suitable if one knows generators of the field in question.[133X
[33X[0;0Y[2XAbelianNumberField[102X can be abbreviated to [2XNF[102X, this form is used also when [5XGAP[105X
prints abelian number fields.[133X
[33X[0;0YFields constructed with [2XNF[102X are stored in the global list
[10XABELIAN_NUMBER_FIELDS[110X, so repeated calls of [2XNF[102X just fetch these field
objects after they have been created once.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XNF( 7, [ 1 ] );[127X[104X
[4X[28XCF(7)[128X[104X
[4X[25Xgap>[125X [27Xf:= NF( 7, [ 1, 2 ] ); Sqrt(-7); Sqrt(-7) in f;[127X[104X
[4X[28XNF(7,[ 1, 2, 4 ])[128X[104X
[4X[28XE(7)+E(7)^2-E(7)^3+E(7)^4-E(7)^5-E(7)^6[128X[104X
[4X[28Xtrue[128X[104X
[4X[32X[104X
[1X60.1-3 GaussianRationals[101X
[33X[1;0Y[29X[2XGaussianRationals[102X[32X global variable[133X
[33X[1;0Y[29X[2XIsGaussianRationals[102X( [3Xobj[103X ) [32X Category[133X
[33X[0;0Y[2XGaussianRationals[102X is the field [22Xℚ_4 = ℚ(sqrt{-1})[122X of Gaussian rationals, as a
set of cyclotomic numbers, see Chapter [14X18[114X for basic operations. This field
can also be obtained as [10XCF(4)[110X (see [2XCyclotomicField[102X ([14X60.1-1[114X)).[133X
[33X[0;0YThe filter [2XIsGaussianRationals[102X returns [9Xtrue[109X for the [5XGAP[105X object
[2XGaussianRationals[102X, and [9Xfalse[109X for all other [5XGAP[105X objects.[133X
[33X[0;0Y(For details about the field of rationals, see Chapter [2XRationals[102X ([14X17.1-1[114X).)[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XCF(4) = GaussianRationals;[127X[104X
[4X[28Xtrue[128X[104X
[4X[25Xgap>[125X [27XSqrt(-1) in GaussianRationals;[127X[104X
[4X[28Xtrue[128X[104X
[4X[32X[104X
[1X60.2 [33X[0;0YOperations for Abelian Number Fields[133X[101X
[33X[0;0YFor operations for elements of abelian number fields, e.g., [2XConductor[102X
([14X18.1-7[114X) or [2XComplexConjugate[102X ([14X18.5-2[114X), see Chapter [14X18[114X.[133X
[1X60.2-1 Factors[101X
[33X[1;0Y[29X[2XFactors[102X( [3XF[103X ) [32X method[133X
[33X[0;0YFactoring of polynomials over abelian number fields consisting of
cyclotomics works in principle but is not very efficient if the degree of
the field extension is large.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xx:= Indeterminate( CF(5) );[127X[104X
[4X[28Xx_1[128X[104X
[4X[25Xgap>[125X [27XFactors( PolynomialRing( Rationals ), x^5-1 );[127X[104X
[4X[28X[ x_1-1, x_1^4+x_1^3+x_1^2+x_1+1 ][128X[104X
[4X[25Xgap>[125X [27XFactors( PolynomialRing( CF(5) ), x^5-1 );[127X[104X
[4X[28X[ x_1-1, x_1+(-E(5)), x_1+(-E(5)^2), x_1+(-E(5)^3), x_1+(-E(5)^4) ][128X[104X
[4X[32X[104X
[1X60.2-2 IsNumberField[101X
[33X[1;0Y[29X[2XIsNumberField[102X( [3XF[103X ) [32X property[133X
[33X[0;0Yreturns [9Xtrue[109X if the field [3XF[103X is a finite dimensional extension of a prime
field in characteristic zero, and [9Xfalse[109X otherwise.[133X
[1X60.2-3 IsAbelianNumberField[101X
[33X[1;0Y[29X[2XIsAbelianNumberField[102X( [3XF[103X ) [32X property[133X
[33X[0;0Yreturns [9Xtrue[109X if the field [3XF[103X is a number field (see [2XIsNumberField[102X ([14X60.2-2[114X))
that is a Galois extension of the prime field, with abelian Galois group
(see [2XGaloisGroup[102X ([14X58.3-1[114X)).[133X
[1X60.2-4 IsCyclotomicField[101X
[33X[1;0Y[29X[2XIsCyclotomicField[102X( [3XF[103X ) [32X property[133X
[33X[0;0Yreturns [9Xtrue[109X if the field [3XF[103X is a [13Xcyclotomic field[113X, i.e., an abelian number
field (see [2XIsAbelianNumberField[102X ([14X60.2-3[114X)) that can be generated by roots of
unity.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XIsNumberField( CF(9) ); IsAbelianNumberField( Field( [ ER(3) ] ) );[127X[104X
[4X[28Xtrue[128X[104X
[4X[28Xtrue[128X[104X
[4X[25Xgap>[125X [27XIsNumberField( GF(2) );[127X[104X
[4X[28Xfalse[128X[104X
[4X[25Xgap>[125X [27XIsCyclotomicField( CF(9) );[127X[104X
[4X[28Xtrue[128X[104X
[4X[25Xgap>[125X [27XIsCyclotomicField( Field( [ Sqrt(-3) ] ) );[127X[104X
[4X[28Xtrue[128X[104X
[4X[25Xgap>[125X [27XIsCyclotomicField( Field( [ Sqrt(3) ] ) );[127X[104X
[4X[28Xfalse[128X[104X
[4X[32X[104X
[1X60.2-5 GaloisStabilizer[101X
[33X[1;0Y[29X[2XGaloisStabilizer[102X( [3XF[103X ) [32X attribute[133X
[33X[0;0YLet [3XF[103X be an abelian number field (see [2XIsAbelianNumberField[102X ([14X60.2-3[114X)) with
conductor [22Xn[122X, say. (This means that the [22Xn[122X-th cyclotomic field is the smallest
cyclotomic field containing [3XF[103X, see [2XConductor[102X ([14X18.1-7[114X).) [2XGaloisStabilizer[102X
returns the set of all those integers [22Xk[122X in the range [22X[ 1 .. n ][122X such that
the field automorphism induced by raising [22Xn[122X-th roots of unity to the [22Xk[122X-th
power acts trivially on [3XF[103X.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xr5:= Sqrt(5);[127X[104X
[4X[28XE(5)-E(5)^2-E(5)^3+E(5)^4[128X[104X
[4X[25Xgap>[125X [27XGaloisCyc( r5, 4 ) = r5; GaloisCyc( r5, 2 ) = r5;[127X[104X
[4X[28Xtrue[128X[104X
[4X[28Xfalse[128X[104X
[4X[25Xgap>[125X [27XGaloisStabilizer( Field( [ r5 ] ) );[127X[104X
[4X[28X[ 1, 4 ][128X[104X
[4X[32X[104X
[1X60.3 [33X[0;0YIntegral Bases of Abelian Number Fields[133X[101X
[33X[0;0YEach abelian number field is naturally a vector space over [22Xℚ[122X. Moreover, if
the abelian number field [22XF[122X contains the [22Xn[122X-th cyclotomic field [22Xℚ_n[122X then [22XF[122X is
a vector space over [22Xℚ_n[122X. In [5XGAP[105X, each field object represents a vector space
object over a certain subfield [22XS[122X, which depends on the way [22XF[122X was
constructed. The subfield [22XS[122X can be accessed as the value of the attribute
[2XLeftActingDomain[102X ([14X57.1-11[114X).[133X
[33X[0;0YThe return values of [2XNF[102X ([14X60.1-2[114X) and of the one argument versions of [2XCF[102X
([14X60.1-1[114X) represent vector spaces over [22Xℚ[122X, and the return values of the two
argument version of [2XCF[102X ([14X60.1-1[114X) represent vector spaces over the field that
is given as the first argument. For an abelian number field [3XF[103X and a subfield
[3XS[103X of [3XF[103X, a [5XGAP[105X object representing [3XF[103X as a vector space over [3XS[103X can be
constructed using [2XAsField[102X ([14X58.1-9[114X).[133X
[33X[0;0YLet [3XF[103X be the cyclotomic field [22Xℚ_n[122X, represented as a vector space over the
subfield [3XS[103X. If [3XS[103X is the cyclotomic field [22Xℚ_m[122X, with [22Xm[122X a divisor of [22Xn[122X, then
[10XCanonicalBasis( [3XF[103X[10X )[110X returns the Zumbroich basis of [3XF[103X relative to [3XS[103X, which
consists of the roots of unity [10XE([3Xn[103X[10X)[110X^[3Xi[103X where [3Xi[103X is an element of the list
[10XZumbroichBase( [3Xn[103X[10X, [3Xm[103X[10X )[110X (see [2XZumbroichBase[102X ([14X60.3-1[114X)). If [3XS[103X is an abelian
number field that is not a cyclotomic field then [10XCanonicalBasis( [3XF[103X[10X )[110X returns
a normal [3XS[103X-basis of [3XF[103X, i.e., a basis that is closed under the field
automorphisms of [3XF[103X.[133X
[33X[0;0YLet [3XF[103X be the abelian number field [10XNF( [3Xn[103X[10X, [3Xstab[103X[10X )[110X, with conductor [3Xn[103X, that is
itself not a cyclotomic field, represented as a vector space over the
subfield [3XS[103X. If [3XS[103X is the cyclotomic field [22Xℚ_m[122X, with [22Xm[122X a divisor of [22Xn[122X, then
[10XCanonicalBasis( [3XF[103X[10X )[110X returns the Lenstra basis of [3XF[103X relative to [3XS[103X that
consists of the sums of roots of unity described by [10XLenstraBase( [3Xn[103X[10X, [3Xstab[103X[10X,
[3Xstab[103X[10X, [3Xm[103X[10X )[110X (see [2XLenstraBase[102X ([14X60.3-2[114X)). If [3XS[103X is an abelian number field that
is not a cyclotomic field then [10XCanonicalBasis( [3XF[103X[10X )[110X returns a normal [3XS[103X-basis
of [3XF[103X.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xf:= CF(8);; # a cycl. field over the rationals[127X[104X
[4X[25Xgap>[125X [27Xb:= CanonicalBasis( f );; BasisVectors( b );[127X[104X
[4X[28X[ 1, E(8), E(4), E(8)^3 ][128X[104X
[4X[25Xgap>[125X [27XCoefficients( b, Sqrt(-2) );[127X[104X
[4X[28X[ 0, 1, 0, 1 ][128X[104X
[4X[25Xgap>[125X [27Xf:= AsField( CF(4), CF(8) );; # a cycl. field over a cycl. field[127X[104X
[4X[25Xgap>[125X [27Xb:= CanonicalBasis( f );; BasisVectors( b );[127X[104X
[4X[28X[ 1, E(8) ][128X[104X
[4X[25Xgap>[125X [27XCoefficients( b, Sqrt(-2) );[127X[104X
[4X[28X[ 0, 1+E(4) ][128X[104X
[4X[25Xgap>[125X [27Xf:= AsField( Field( [ Sqrt(-2) ] ), CF(8) );;[127X[104X
[4X[25Xgap>[125X [27X# a cycl. field over a non-cycl. field[127X[104X
[4X[25Xgap>[125X [27Xb:= CanonicalBasis( f );; BasisVectors( b );[127X[104X
[4X[28X[ 1/2+1/2*E(8)-1/2*E(8)^2-1/2*E(8)^3, [128X[104X
[4X[28X 1/2-1/2*E(8)+1/2*E(8)^2+1/2*E(8)^3 ][128X[104X
[4X[25Xgap>[125X [27XCoefficients( b, Sqrt(-2) );[127X[104X
[4X[28X[ E(8)+E(8)^3, E(8)+E(8)^3 ][128X[104X
[4X[25Xgap>[125X [27Xf:= Field( [ Sqrt(-2) ] ); # a non-cycl. field over the rationals[127X[104X
[4X[28XNF(8,[ 1, 3 ])[128X[104X
[4X[25Xgap>[125X [27Xb:= CanonicalBasis( f );; BasisVectors( b );[127X[104X
[4X[28X[ 1, E(8)+E(8)^3 ][128X[104X
[4X[25Xgap>[125X [27XCoefficients( b, Sqrt(-2) );[127X[104X
[4X[28X[ 0, 1 ][128X[104X
[4X[32X[104X
[1X60.3-1 ZumbroichBase[101X
[33X[1;0Y[29X[2XZumbroichBase[102X( [3Xn[103X, [3Xm[103X ) [32X function[133X
[33X[0;0YLet [3Xn[103X and [3Xm[103X be positive integers, such that [3Xm[103X divides [3Xn[103X. [2XZumbroichBase[102X
returns the set of exponents [22Xi[122X for which [10XE([3Xn[103X[10X)^[110X[22Xi[122X belongs to the (generalized)
Zumbroich basis of the cyclotomic field [22Xℚ_n[122X, viewed as a vector space over
[22Xℚ_m[122X.[133X
[33X[0;0YThis basis is defined as follows. Let [22XP[122X denote the set of prime divisors of
[3Xn[103X, [22X[3Xn[103X = ∏_{p ∈ P} p^{ν_p}[122X, and [22X[3Xm[103X = ∏_{p ∈ P} p^{μ_p}[122X with [22Xμ_p ≤ ν_p[122X. Let [22Xe_l
=[122X [10XE[110X[22X(l)[122X for any positive integer [22Xl[122X, and [22X{ e_{n_1}^j }_{j ∈ J} ⊗ { e_{n_2}^k
}_{k ∈ K} = { e_{n_1}^j ⋅ e_{n_2}^k }_{j ∈ J, k ∈ K}[122X.[133X
[33X[0;0YThen the basis is[133X
[24X[33X[0;6YB_{n,m} = ⨂_{p ∈ P} ⨂_{k = μ_p}^{ν_p-1} { e_{p^{k+1}}^j }_{j ∈ J_{k,p}}[133X[124X
[33X[0;0Ywhere [22XJ_{k,p} =[122X[133X
[22X{ 0 }[122X ; [22Xk = 0, p = 2[122X
[22X{ 0, 1 }[122X ; [22Xk > 0, p = 2[122X
[22X{ 1, ..., p-1 }[122X ; [22Xk = 0, p ≠ 2[122X
[22X{ -(p-1)/2, ..., (p-1)/2 }[122X ; [22Xk > 0, p ≠ 2[122X
[33X[0;0Y[22XB_{n,1}[122X is equal to the basis of [22Xℚ_n[122X over the rationals which is introduced
in [Zum89]. Also the conversion of arbitrary sums of roots of unity into its
basis representation, and the reduction to the minimal cyclotomic field are
described in this thesis. (Note that the notation here is slightly different
from that there.)[133X
[33X[0;0Y[22XB_{n,m}[122X consists of roots of unity, it is an integral basis (that is,
exactly the integral elements in [22Xℚ_n[122X have integral coefficients
w.r.t. [22XB_{n,m}[122X, cf. [2XIsIntegralCyclotomic[102X ([14X18.1-4[114X)), it is a normal basis for
squarefree [22Xn[122X and closed under complex conjugation for odd [22Xn[122X.[133X
[33X[0;0Y[13XNote:[113X For [22X[3Xn[103X ≡ 2 mod 4[122X, we have [10XZumbroichBase([3Xn[103X[10X, 1) = 2 * ZumbroichBase([3Xn[103X[10X/2,
1)[110X and [10XList( ZumbroichBase([3Xn[103X[10X, 1), x -> E([3Xn[103X[10X)^x ) = List( ZumbroichBase([3Xn[103X[10X/2,
1), x -> E([3Xn[103X[10X/2)^x )[110X.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XZumbroichBase( 15, 1 ); ZumbroichBase( 12, 3 );[127X[104X
[4X[28X[ 1, 2, 4, 7, 8, 11, 13, 14 ][128X[104X
[4X[28X[ 0, 3 ][128X[104X
[4X[25Xgap>[125X [27XZumbroichBase( 10, 2 ); ZumbroichBase( 32, 4 );[127X[104X
[4X[28X[ 2, 4, 6, 8 ][128X[104X
[4X[28X[ 0, 1, 2, 3, 4, 5, 6, 7 ][128X[104X
[4X[32X[104X
[1X60.3-2 LenstraBase[101X
[33X[1;0Y[29X[2XLenstraBase[102X( [3Xn[103X, [3Xstabilizer[103X, [3Xsuper[103X, [3Xm[103X ) [32X function[133X
[33X[0;0YLet [3Xn[103X and [3Xm[103X be positive integers such that [3Xm[103X divides [3Xn[103X, [3Xstabilizer[103X be a list
of prime residues modulo [3Xn[103X, which describes a subfield of the [3Xn[103X-th
cyclotomic field (see [2XGaloisStabilizer[102X ([14X60.2-5[114X)), and [3Xsuper[103X be a list
representing a supergroup of the group given by [3Xstabilizer[103X.[133X
[33X[0;0Y[2XLenstraBase[102X returns a list [22X[ b_1, b_2, ..., b_k ][122X of lists, each [22Xb_i[122X
consisting of integers such that the elements [22X∑_{j ∈ b_i}[122X[10XE(n)[110X[22X^j[122X form a basis
of the abelian number field [10XNF( [3Xn[103X[10X, [3Xstabilizer[103X[10X )[110X, as a vector space over the
[3Xm[103X-th cyclotomic field (see [2XAbelianNumberField[102X ([14X60.1-2[114X)).[133X
[33X[0;0YThis basis is an integral basis, that is, exactly the integral elements in
[10XNF( [3Xn[103X[10X, [3Xstabilizer[103X[10X )[110X have integral coefficients. (For details about this
basis, see [Bre97].)[133X
[33X[0;0YIf possible then the result is chosen such that the group described by [3Xsuper[103X
acts on it, consistently with the action of [3Xstabilizer[103X, i.e., each orbit of
[3Xsuper[103X is a union of orbits of [3Xstabilizer[103X. (A usual case is [3Xsuper[103X[10X =
[110X[3Xstabilizer[103X, so there is no additional condition.[133X
[33X[0;0Y[13XNote:[113X The [22Xb_i[122X are in general not sets, since for [10X[3Xstabilizer[103X[10X = [3Xsuper[103X[10X[110X, the
first entry is always an element of [10XZumbroichBase( [3Xn[103X[10X, [3Xm[103X[10X )[110X; this property is
used by [2XNF[102X ([14X60.1-2[114X) and [2XCoefficients[102X ([14X61.6-3[114X) (see [14X60.3[114X).[133X
[33X[0;0Y[3Xstabilizer[103X must not contain the stabilizer of a proper cyclotomic subfield
of the [3Xn[103X-th cyclotomic field, i.e., the result must describe a basis for a
field with conductor [3Xn[103X.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XLenstraBase( 24, [ 1, 19 ], [ 1, 19 ], 1 );[127X[104X
[4X[28X[ [ 1, 19 ], [ 8 ], [ 11, 17 ], [ 16 ] ][128X[104X
[4X[25Xgap>[125X [27XLenstraBase( 24, [ 1, 19 ], [ 1, 5, 19, 23 ], 1 );[127X[104X
[4X[28X[ [ 1, 19 ], [ 5, 23 ], [ 8 ], [ 16 ] ][128X[104X
[4X[25Xgap>[125X [27XLenstraBase( 15, [ 1, 4 ], PrimeResidues( 15 ), 1 );[127X[104X
[4X[28X[ [ 1, 4 ], [ 2, 8 ], [ 7, 13 ], [ 11, 14 ] ][128X[104X
[4X[32X[104X
[33X[0;0YThe first two results describe two bases of the field [22Xℚ_3(sqrt{6})[122X, the
third result describes a normal basis of [22Xℚ_3(sqrt{5})[122X.[133X
[1X60.4 [33X[0;0YGalois Groups of Abelian Number Fields[133X[101X
[33X[0;0YThe field automorphisms of the cyclotomic field [22Xℚ_n[122X (see Chapter [14X18[114X) are
given by the linear maps [22X*k[122X on [22Xℚ_n[122X that are defined by [10XE[110X[22X(n)^{*k} =[122X[10XE[110X[22X(n)^k[122X,
where [22X1 ≤ k < n[122X and [10XGcd[110X[22X( n, k ) = 1[122X hold (see [2XGaloisCyc[102X ([14X18.5-1[114X)). Note that
this action is [13Xnot[113X equal to exponentiation of cyclotomics, i.e., for general
cyclotomics [22Xz[122X, [22Xz^{*k}[122X is different from [22Xz^k[122X.[133X
[33X[0;0Y(In [5XGAP[105X, the image of a cyclotomic [22Xz[122X under [22X*k[122X can be computed as [10XGaloisCyc(
[110X[22Xz, k[122X[10X )[110X.)[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27X( E(5) + E(5)^4 )^2; GaloisCyc( E(5) + E(5)^4, 2 );[127X[104X
[4X[28X-2*E(5)-E(5)^2-E(5)^3-2*E(5)^4[128X[104X
[4X[28XE(5)^2+E(5)^3[128X[104X
[4X[32X[104X
[33X[0;0YFor [10XGcd[110X[22X( n, k ) ≠ 1[122X, the map [10XE[110X[22X(n) ↦[122X [10XE[110X[22X(n)^k[122X does [13Xnot[113X define a field
automorphism of [22Xℚ_n[122X but only a [22Xℚ[122X-linear map.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27XGaloisCyc( E(5)+E(5)^4, 5 ); GaloisCyc( ( E(5)+E(5)^4 )^2, 5 );[127X[104X
[4X[28X2[128X[104X
[4X[28X-6[128X[104X
[4X[32X[104X
[1X60.4-1 GaloisGroup[101X
[33X[1;0Y[29X[2XGaloisGroup[102X( [3XF[103X ) [32X method[133X
[33X[0;0YThe Galois group [22XGal( ℚ_n, ℚ )[122X of the field extension [22Xℚ_n / ℚ[122X is isomorphic
to the group [22X(ℤ / n ℤ)^*[122X of prime residues modulo [22Xn[122X, via the isomorphism [22X(ℤ
/ n ℤ)^* → Gal( ℚ_n, ℚ )[122X that is defined by [22Xk + n ℤ ↦ ( z ↦ z^*k )[122X.[133X
[33X[0;0YThe Galois group of the field extension [22Xℚ_n / L[122X with any abelian number
field [22XL ⊆ ℚ_n[122X is simply the factor group of [22XGal( ℚ_n, ℚ )[122X modulo the
stabilizer of [22XL[122X, and the Galois group of [22XL / L'[122X, with [22XL'[122X an abelian number
field contained in [22XL[122X, is the subgroup in this group that stabilizes [22XL'[122X.
These groups are easily described in terms of [22X(ℤ / n ℤ)^*[122X. Generators of [22X(ℤ
/ n ℤ)^*[122X can be computed using [2XGeneratorsPrimeResidues[102X ([14X15.2-4[114X).[133X
[33X[0;0YIn [5XGAP[105X, a field extension [22XL / L'[122X is given by the field object [22XL[122X with
[2XLeftActingDomain[102X ([14X57.1-11[114X) value [22XL'[122X (see [14X60.3[114X).[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xf:= CF(15);[127X[104X
[4X[28XCF(15)[128X[104X
[4X[25Xgap>[125X [27Xg:= GaloisGroup( f );[127X[104X
[4X[28X<group with 2 generators>[128X[104X
[4X[25Xgap>[125X [27XSize( g ); IsCyclic( g ); IsAbelian( g );[127X[104X
[4X[28X8[128X[104X
[4X[28Xfalse[128X[104X
[4X[28Xtrue[128X[104X
[4X[25Xgap>[125X [27XAction( g, NormalBase( f ), OnPoints );[127X[104X
[4X[28XGroup([ (1,6)(2,4)(3,8)(5,7), (1,4,3,7)(2,8,5,6) ])[128X[104X
[4X[32X[104X
[33X[0;0YThe following example shows Galois groups of a cyclotomic field and of a
proper subfield that is not a cyclotomic field.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xgens1:= GeneratorsOfGroup( GaloisGroup( CF(5) ) );[127X[104X
[4X[28X[ ANFAutomorphism( CF(5), 2 ) ][128X[104X
[4X[25Xgap>[125X [27Xgens2:= GeneratorsOfGroup( GaloisGroup( Field( Sqrt(5) ) ) );[127X[104X
[4X[28X[ ANFAutomorphism( NF(5,[ 1, 4 ]), 2 ) ][128X[104X
[4X[25Xgap>[125X [27XOrder( gens1[1] ); Order( gens2[1] );[127X[104X
[4X[28X4[128X[104X
[4X[28X2[128X[104X
[4X[25Xgap>[125X [27XSqrt(5)^gens1[1] = Sqrt(5)^gens2[1];[127X[104X
[4X[28Xtrue[128X[104X
[4X[32X[104X
[33X[0;0YThe following example shows the Galois group of a cyclotomic field over a
non-cyclotomic field.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xg:= GaloisGroup( AsField( Field( [ Sqrt(5) ] ), CF(5) ) );[127X[104X
[4X[28X<group of size 2 with 1 generators>[128X[104X
[4X[25Xgap>[125X [27Xgens:= GeneratorsOfGroup( g );[127X[104X
[4X[28X[ ANFAutomorphism( AsField( NF(5,[ 1, 4 ]), CF(5) ), 4 ) ][128X[104X
[4X[25Xgap>[125X [27Xx:= last[1];; x^2;[127X[104X
[4X[28XIdentityMapping( AsField( NF(5,[ 1, 4 ]), CF(5) ) )[128X[104X
[4X[32X[104X
[1X60.4-2 ANFAutomorphism[101X
[33X[1;0Y[29X[2XANFAutomorphism[102X( [3XF[103X, [3Xk[103X ) [32X function[133X
[33X[0;0YLet [3XF[103X be an abelian number field and [3Xk[103X be an integer that is coprime to the
conductor (see [2XConductor[102X ([14X18.1-7[114X)) of [3XF[103X. Then [2XANFAutomorphism[102X returns the
automorphism of [3XF[103X that is defined as the linear extension of the map that
raises each root of unity in [3XF[103X to its [3Xk[103X-th power.[133X
[4X[32X Example [32X[104X
[4X[25Xgap>[125X [27Xf:= CF(25);[127X[104X
[4X[28XCF(25)[128X[104X
[4X[25Xgap>[125X [27Xalpha:= ANFAutomorphism( f, 2 );[127X[104X
[4X[28XANFAutomorphism( CF(25), 2 )[128X[104X
[4X[25Xgap>[125X [27Xalpha^2;[127X[104X
[4X[28XANFAutomorphism( CF(25), 4 )[128X[104X
[4X[25Xgap>[125X [27XOrder( alpha );[127X[104X
[4X[28X20[128X[104X
[4X[25Xgap>[125X [27XE(5)^alpha;[127X[104X
[4X[28XE(5)^2[128X[104X
[4X[32X[104X
[1X60.5 [33X[0;0YGaussians[133X[101X
[1X60.5-1 GaussianIntegers[101X
[33X[1;0Y[29X[2XGaussianIntegers[102X[32X global variable[133X
[33X[0;0Y[2XGaussianIntegers[102X is the ring [22Xℤ[sqrt{-1}][122X of Gaussian integers. This is a
subring of the cyclotomic field [2XGaussianRationals[102X ([14X60.1-3[114X).[133X
[1X60.5-2 IsGaussianIntegers[101X
[33X[1;0Y[29X[2XIsGaussianIntegers[102X( [3Xobj[103X ) [32X Category[133X
[33X[0;0Yis the defining category for the domain [2XGaussianIntegers[102X ([14X60.5-1[114X).[133X