Algebraic Number Fields

Mathematica provides representation of algebraic numbers as Root objects. A Root object contains the minimal polynomial of the algebraic number and the root number—an integer indicating which of the roots of the minimal polynomial the Root object represents. This allows for unique representation of arbitrary complex algebraic numbers. A disadvantage is that performing arithmetic operations in this representation is quite costly. That is why Mathematica requires the use of an additional function, RootReduce, in order to simplify arithmetic expressions. Restricting computations to be within a fixed finite algebraic extension of the rationals,

, allows a more convenient representation of its elements as polynomials in

AlgebraicNumber[

,{c₀,c₁,...,c_n}]

represent the algebraic number

Representation of algebraic numbers as elements of a finite extension of rationals.

is an algebraic integer with a minimal polynomial of degree

, and

, ...,

are rational numbers, then AlgebraicNumber

is an inert numeric object.

In[1]:=

Out[1]=

N can be used to find a numeric approximation of an AlgebraicNumber object.

In[2]:=

Out[2]=

For any algebraic number

and any list of rational numbers

, ...,

, AlgebraicNumber

evaluates to AlgebraicNumber

, where

is an algebraic integer such that

for some factor

of the leading coefficient of the minimal polynomial of

is the degree of the minimal polynomial of

, and

AlgebraicNumber automatically makes the generator of the extension an algebraic integer and the coefficient list equal in length to the degree of the extension.

In[3]:=

Out[3]=

AlgebraicNumber objects representing rational numbers reduce automatically to numbers.

In[4]:=

Out[4]=

Adding or multiplying AlgebraicNumber objects that explicitly belong to the same field (i.e. have the same first elements), adding or multiplying a rational number and an AlgebraicNumber object, or raising an AlgebraicNumber object to an integer power yields an AlgebraicNumber object.

In[5]:=

Out[5]=

RootReduce transforms AlgebraicNumber objects to Root objects.

In[6]:=

Out[6]=

ToNumberField[a,]	express the algebraic number a in the number field generated by
ToNumberField[{a₁,a₂,...},]	express the in the field generated by
ToNumberField[{a₁,a₂,...}]	express the in a common extension field generated by a single algebraic number

Representing arbitrary algebraic numbers as elements of algebraic number fields.

ToNumberField can be used to find a common finite extension of rationals containing the given algebraic numbers.

In[7]:=

Out[7]=

This represents

as an element of the field generated by Root

In[8]:=

Out[8]=

Arithmetic within a fixed finite extension of rationals is much faster than arithmetic within the field of all complex algebraic numbers.

Suppose you need to find the value of rational function

with

replaced by algebraic numbers

In[9]:=

A direct computation of the value of

using RootReduce takes a rather long time.

In[10]:=

Out[10]=

A faster alternative is to do the computation in a common algebraic number field containing

In[11]:=

Out[11]=

Arithmetic within the common number field is much faster.

In[12]:=

Out[12]=

Converting the resulting AlgebraicNumber object to a Root object is fast as well.

In[13]:=

Out[13]=

ToNumberField

is equivalent to ToNumberField[{a₁, a₂, ...}, Automatic], and does not necessarily use the smallest common field extension. ToNumberField[{a₁, a₂, ...}, All] always uses the smallest common field extension.

Here the first AlgebraicNumber object is equal to

so it does not generate the 4

-degree field

(Root

) it is represented in. However, the common field found by ToNumberField contains the whole field

(Root

In[14]:=

Out[14]=

Specifying the second argument All makes ToNumberField find the smallest field possible.

In[15]:=

Out[15]=

MinimalPolynomial[a]	give a pure function representation of the minimal polynomial over the integers of the algebraic number a
MinimalPolynomial[a,x]	give the minimal polynomial of the algebraic number a as a polynomial in x
AlgebraicIntegerQ[a]	give True if the algebraic number a is an algebraic integer and False otherwise
AlgebraicNumberDenominator[a]	give the smallest positive integer n such that na is an algebraic integer
AlgebraicNumberTrace[a]	give the trace of the algebraic number a
AlgebraicNumberNorm[a]	give the norm of the algebraic number a
AlgebraicUnitQ[a]	give True if the algebraic number a is an algebraic unit and False otherwise
RootOfUnityQ[a]	give True if the algebraic number a is a root of unity and False otherwise

Functions for computing algebraic number properties.

The minimal polynomial of an algebraic number

is the lowest-degree polynomial

with integer coefficients and the smallest positive leading coefficient, such that

This gives the minimal polynomial of

expressed as a pure function.

In[16]:=

Out[16]=

This gives the minimal polynomial of Root[#1⁵-2 #1+7&, 1]²+1 expressed as a polynomial in

In[17]:=

Out[17]=

An algebraic number is an algebraic integer if and only if its MinimalPolynomial is monic.

This shows that

is an algebraic integer.

In[18]:=

Out[18]=

This shows that

is not an algebraic integer.

In[19]:=

Out[19]=

This gives the smallest positive integer

for which

is an algebraic integer.

In[20]:=

Out[20]=

The trace of an algebraic number

is the sum of all roots of MinimalPolynomial[a].

This gives the trace of

In[21]:=

Out[21]=

The norm of an algebraic number

is the product of all roots of MinimalPolynomial[a].

This gives the norm of

In[22]:=

Out[22]=

An algebraic number

is an algebraic unit if and only if both

and

are algebraic integers, or equivalently, if and only if AlgebraicNumberNorm[a] is

This shows that GoldenRatio is an algebraic unit.

In[23]:=

Out[23]=

This shows that AlgebraicNumber[Root[#1³-4#1+17&, 1], {1, 2, 3}] is not an algebraic unit.

In[24]:=

Out[24]=

An algebraic number

is a root of unity if and only if

for some integer

This shows that

is a root of unity.

In[25]:=

Out[25]=

MinimalPolynomial[s,x,Extension->a]
	give the characteristic polynomial of the algebraic number over the field
MinimalPolynomial[s,x,Extension->Automatic]
	give the characteristic polynomial of the AlgebraicNumber object over the number field generated by its first argument
AlgebraicNumberTrace[a,Extension->]
	give the trace of the algebraic number over the field
AlgebraicNumberTrace[a,Extension->Automatic]
	give the trace of the AlgebraicNumber object over the number field generated by its first argument
AlgebraicNumberNorm[a,Extension->]
	give the norm of the algebraic number over the field
AlgebraicNumberNorm[a,Extension->Automatic]
	give the norm of the AlgebraicNumber object over the number field generated by its first argument

Functions for computing properties of elements of algebraic number fields.

If a is AlgebraicNumber

, then MinimalPolynomial[a, x, Extension->Automatic] is equal to MinimalPolynomial[a, x]^d, where d is the extension degree of

The characteristic polynomial of

, represented as an element of an extension of rationals of degree 4, is the square of MinimalPolynomial of

In[26]:=

Out[26]=

The trace of an algebraic number is the sum of all roots of its characteristic polynomial. If a is AlgebraicNumber

, then AlgebraicNumberTrace[a, Extension->Automatic] is equal to d AlgebraicNumberTrace[a], where d is the extension degree of

The trace of

, represented as an element of an extension of rationals of degree 4, is twice the AlgebraicNumberTrace of

In[27]:=

Out[27]=

The norm of an algebraic number is the product of all roots of its characteristic polynomial. If a is AlgebraicNumber

, then AlgebraicNumberNorm[a, Extension->Automatic] is equal to AlgebraicNumberNorm[a]^d, where d is the extension degree of

The norm of

, represented as an element of an extension of rationals of degree 4, is the square of AlgebraicNumberNorm of

In[28]:=

Out[28]=

NumberFieldIntegralBasis[a]	give an integral basis for the field generated by the algebraic number a
NumberFieldRootsOfUnity[a]	give the roots of unity for the field generated by the algebraic number a
NumberFieldFundamentalUnits[a]	give a list of fundamental units for the field generated by the algebraic number a
NumberFieldNormRepresentatives[a,m]
	give a list of representatives of classes of algebraic integers of norm ±m in the field generated by the algebraic number a
NumberFieldSignature[a]	give the signature of the field generated by the algebraic number a
NumberFieldDiscriminant[a]	give the discriminant of the field generated by the algebraic number a
NumberFieldRegulator[a]	give the regulator of the field generated by the algebraic number a
NumberFieldClassNumber[a]	give the class number of a number field generated by an algebraic number a

Functions of computing properties of algebraic number fields.

An integral basis of an algebraic number field

is a list of algebraic numbers forming a basis of the

-module of the algebraic integers of

. The set

is an integral basis of an algebraic number field

if and only if

are algebraic integers, and every algebraic integer

can be uniquely represented as

with integer coefficients

Here is an integral basis of

In[29]:=

Out[29]=

This gives an integral basis of the field generated by the first root of

In[30]:=

Out[30]=

NumberFieldIntegralBasis allows specifying the number field by giving a polynomial and a root number.

In[31]:=

Out[31]=

This gives the roots of unity in the field generated by Root

In[32]:=

Out[32]=

Here are all roots of unity in the field

In[33]:=

Out[33]=

is a list of fundamental units of an algebraic number field

if and only if

are algebraic units, and every algebraic unit

can be uniquely represented as

with a root of unity

and integer exponents

Here is a set of fundamental units of the field generated by the third root of

In[34]:=

Out[34]=

This gives a fundamental unit of the quadratic field

In[35]:=

Out[35]=

This gives a set of representatives of classes of elements of norm 9 in the field generated by the first root of

In[36]:=

Out[36]=

Here is a set of representatives of classes of elements of norm 2 in the field

In[37]:=

Out[37]=

This shows that the polynomial

has 1 real root and 2 conjugate pairs of complex roots.

In[38]:=

Out[38]=

This shows that the field

has 12 real embeddings and 6 conjugate pairs of complex embeddings.

In[39]:=

Out[39]=

The discriminant of a number field

is the discriminant of an integral basis

(i.e. the determinant of the matrix with elements AlgebraicNumberTrace[a_i a_j, Extension->Automatic]). The value of the determinant does not depend on the choice of integral basis.

Here is the discriminant of