虚拟全书 > 数学和算法 > 高等代数 > 代数数域
MATHEMATICA 教程

代数数域

Mathematica 以 Root 对象的形式表示代数数（algebraic number）. 一个 Root 对象包含了代数数的最小多项式和根数（root number）. 根数是一个整数，用于表明 Root 对象所表示的是最小多项式的哪个根. 这样是为了使任意复数代数数的表示唯一. 一个缺点是用这样的表示进行代数运算要付出很大的代价. 这也是为什么 Mathematica 要求使用一个附加的函数，RootReduce，来简化运算表达式. 将计算限制在有理数的一个固定的有限的代数扩张（algebraic extension） 内，可以将其中的元素更加方便地表示为关于 的一个多项式.

AlgebraicNumber[,{c0,c1,...,cn}]表示 中的代数数

以有理数有限扩张的元素的形式表示代数数.

若 为一代数整数，具有次数为 的最小多项式，且 、...、 为有理数，则AlgebraicNumber[, {c0, ..., cl}] 为一无功能数字对象（inert numeric object）.
In[1]:=
Click for copyable input
Out[1]=
N 可以用来求 AlgebraicNumber 对象的数值近似.
In[2]:=
Click for copyable input
Out[2]=

对于任何代数数 和有理数列表 、...、，AlgebraicNumber[, {c0, ..., cl}] 计算给出AlgebraicNumber[, {d0, ..., dm}]，其中 是一个代数整数，对于 的最小多项式的首系数的某个因子 ，满足 ， 是 的最小多项式的次数，且

AlgebraicNumber 自动产生一个代数整数的生成器以及长度等于该扩张的次数的系数列表.
In[3]:=
Click for copyable input
Out[3]=
表示有理数的 AlgebraicNumber 对象自动约化为数.
In[4]:=
Click for copyable input
Out[4]=
加上或者乘以明确属于同一域（即具有相同的第一元素）的 AlgebraicNumber 对象，加上或者乘以一个有理数和一个 AlgebraicNumber 对象，或者将 AlgebraicNumber 对象提升至一个整数幂，都得到一个 AlgebraicNumber 对象.
In[5]:=
Click for copyable input
Out[5]=
RootReduce 将 AlgebraicNumber 对象变换为一个 Root 对象.
In[6]:=
Click for copyable input
Out[6]=
ToNumberField[a,]将代数数 a 在 所生成的数域上表示
ToNumberField[{a1,a2,...},]将 在 所生成的域上表示
ToNumberField[{a1,a2,...}]将 在由单一代数数生成的公共扩张域（common extension field ）上表示

以代数数域元素的形式表示任意代数数.

ToNumberField 可以用来找到含有给定代数数的有理数的公共有限扩张（common extension field ）.
In[7]:=
Click for copyable input
Out[7]=
这里将 用 Root[1-10 #12+#14&, 4] 生成的一个域元素表示.
In[8]:=
Click for copyable input
Out[8]=

与在全体复数代数数域上进行运算相比，在有理数的一个固定的有限扩张上进行运算要快得多.

假设要找到有理函数 的值，其中 被代数数 取代.
In[9]:=
Click for copyable input
使用 RootReduce 在 处直接计算 的值需要的时间很长.
In[10]:=
Click for copyable input
Out[10]=
一个较快的方法是在包含 的一个公共代数数域内进行计算.
In[11]:=
Click for copyable input
Out[11]=
在公共数域内部的运算要快得多.
In[12]:=
Click for copyable input
Out[12]=
将所得的 AlgebraicNumber 对象转化为一个 Root 对象也同样很快.
In[13]:=
Click for copyable input
Out[13]=

ToNumberField[{a1, a2, ...}] 等价于 ToNumberField[{a1, a2, ...}, Automatic]，它不一定使用最小公共域扩张. 而 ToNumberField[{a1, a2, ...}, All] 始终使用最小公共域扩张.

此处第一个 AlgebraicNumber 对象等于 ，因此不生成在其上表示它的4次域 (Root[1-10 #12+#14&, 4]). 然而，由 ToNumberField 得到的公共域包含全部域 (Root[1-10 #12+#14&, 4]).
In[14]:=
Click for copyable input
Out[14]=
第二个参数 All 的设定使得 ToNumberField 寻找可能的最小域成.
In[15]:=
Click for copyable input
Out[15]=
MinimalPolynomial[a]给出代数数 a 在整数上的最小多项式的纯函数表示
MinimalPolynomial[a,x]以 x 的多项式的形式给出代数数 a 的最小多项式
AlgebraicIntegerQ[a]若代数数 a 为一代数整数返回 True，否则返回 False
AlgebraicNumberDenominator[a]给出最小正整数 n 使得 na 为一代数整数
AlgebraicNumberTrace[a]给出代数数 a 的迹（trace）
AlgebraicNumberNorm[a]给出代数数 a 的范数（norm）
AlgebraicUnitQ[a]若代数数 a 为一代数单位元，返回 True，否则返回 False
RootOfUnityQ[a]若代数数 a 是一个单位根，返回 True，否则返回 False

计算代数数性质的函数.

一个代数数 的最小多项式是一个带有整数系数和最小整数首系数的次数最低的多项式 ，使得 .

这里给出了以纯函数表示的 的最小多项式.
In[16]:=
Click for copyable input
Out[16]=
这里给出了以关于 的多项式表示的 Root[#15-2 #1+7&, 1]2+1 的最小多项式.
In[17]:=
Click for copyable input
Out[17]=

当且仅当一个代数数的 MinimalPolynomial 首一（monic）时，该代数数为代数整数.

此处表明 为一代数整数.
In[18]:=
Click for copyable input
Out[18]=
此处表明 不是代数整数.
In[19]:=
Click for copyable input
Out[19]=
这里给出使 为一代数整数的最小正整数 .
In[20]:=
Click for copyable input
Out[20]=

一个代数数 的迹是 MinimalPolynomial[a] 的全体根之和.

这里得到了 的迹.
In[21]:=
Click for copyable input
Out[21]=

一个代数数 的范数是 MinimalPolynomial[a] 的全体根的乘积.

这里得到了 的范数.
In[22]:=
Click for copyable input
Out[22]=

当且仅当 和 均为代数整数，或者等价地，当且仅当 AlgebraicNumberNorm[a] 为 或 时，代数数 是一个代数单位元.

此处表明 GoldenRatio 是一个代数单位元.
In[23]:=
Click for copyable input
Out[23]=
此处表明 AlgebraicNumber[Root[#13-4#1+17&, 1], {1, 2, 3}] 不是一个代数单位元.
In[24]:=
Click for copyable input
Out[24]=

当且仅当存在一个整数 使得 时，代数数 是一个单位根.

这里表明 是一个单位根.
In[25]:=
Click for copyable input
Out[25]=
MinimalPolynomial[s,x,Extension->a]
给出代数数 在域 上的特征多项式
MinimalPolynomial[s,x,Extension->Automatic]
给出 AlgebraicNumber 对象 在由其第一个参数生成的数域上的特征多项式
AlgebraicNumberTrace[a,Extension->]
给出代数数 在域 上的迹
AlgebraicNumberTrace[a,Extension->Automatic]
给出 AlgebraicNumber 对象 在由其第一个参数生成的数域上的迹
AlgebraicNumberNorm[a,Extension->]
给出代数数 在域 上的范数
AlgebraicNumberNorm[a,Extension->Automatic]
给出 AlgebraicNumber对象 在由其第一个参数生成的数域上的范数

计算代数数域的元素性质的函数.

若 a 为 AlgebraicNumber[, coeffs]，则 MinimalPolynomial[a, x, Extension->Automatic] 等于 MinimalPolynomial[a, x]d，其中 d 是 的扩张次数.

由4次有理数扩张的一个元素表示的 的特征多项式等于 的 MinimalPolynomial 的平方.
In[26]:=
Click for copyable input
Out[26]=
Out[26]=

一个代数数的迹是其特征多项式全体根之和. 如果 a 为 AlgebraicNumber[, coeffs]，则AlgebraicNumberTrace[a, Extension->Automatic] 等于 d AlgebraicNumberTrace[a]，其中 d 为 的扩张次数.

以一个4次有理数扩张的一个元素表示的 的迹，是 的 AlgebraicNumberTrace 的两倍.
In[27]:=
Click for copyable input
Out[27]=
Out[27]=

一个代数数的范数是其特征多项式全体根之积. 如果 a 为 AlgebraicNumber[, coeffs]，则 AlgebraicNumberNorm[a, Extension->Automatic] 等于 AlgebraicNumberNorm[a]d，其中 d 为 的扩张次数.

以一个4次有理数扩张的一个元素表示的 的范数是 的AlgebraicNumberNorm 的平方.
In[28]:=
Click for copyable input
Out[28]=
Out[28]=
NumberFieldIntegralBasis[a]给出由代数数 a 生成的域 的整基（integral basis）
NumberFieldRootsOfUnity[a]给出由代数数 a 生成的域 的单位根
NumberFieldFundamentalUnits[a]给出由代数数 a 生成的域 的一个基本单位列表
NumberFieldNormRepresentatives[a,m]
给出由代数数 a 生成的域 中范式为 ±m 的代数整数类的代表元
NumberFieldSignature[a]给出由代数数 a 生成的域 的标记
NumberFieldDiscriminant[a]给出由代数数 a 生成的域 的判别式
NumberFieldRegulator[a]给出由代数数 a 生成的域 的调节子
NumberFieldClassNumber[a]给出由代数数 a 生成的数域 的类数

计算代数数域性质的函数.

一个代数数域 的整基是一个代数数列表，该列表形成 的代数整数的 -模的一个基. 集合 是一个代数数域 的一个整基的充要条件是 为代数整数，并且每一个代数整数 都能够唯一地表示成

其中 为整数系数.

这是 的一个整基.
In[29]:=
Click for copyable input
Out[29]=
此处给出由 的第一个根所生成的域的一个整基.
In[30]:=
Click for copyable input
Out[30]=
NumberFieldIntegralBasis 允许通过给出一个多项式和一个根数来对数域进行设定.
In[31]:=
Click for copyable input
Out[31]=
这里给出由 Root[9-2 #2+#4&, 4] 生成的域的单位根.
In[32]:=
Click for copyable input
Out[32]=
这里是域 内的所有单位根.
In[33]:=
Click for copyable input
Out[33]=

是一个代数数域 的基本单位列表的充要条件是 为代数单位，并且每个代数单位 都能够被唯一地表示成带有一个单位根 和整数指数 的

的形式.

这里是由 的第三个根生成的域的基本单元的集合.
In[34]:=
Click for copyable input
Out[34]=
这里给出二次域 的一个基本单元.
In[35]:=
Click for copyable input
Out[35]=
这里给出由 生成的域中范数9的元素的类的代表元的集合.
In[36]:=
Click for copyable input
Out[36]=
这是域 内范数2的元素的类的代表元的集合.
In[37]:=
Click for copyable input
Out[37]=
此处表明多项式 有1个实根和2个复根共轭对.
In[38]:=
Click for copyable input
Out[38]=
此处表明域 有12个实数嵌入（real embedding）和6个复数嵌入（complex embedding）共轭对.
In[39]:=
Click for copyable input
Out[39]=

一个数域 的判别式是 的一个整基 的判别式（即元素为AlgebraicNumberTrace[ai aj, Extension->Automatic] 的矩阵的行列式式）. 行列式的值与整基的选择无关.

这是 的判别式.
In[40]:=
Click for copyable input
Out[40]=
这里给出由多项式 的根生成的域的判别式. 判别式的值与根的选择无关；因此 NumberFieldDiscriminant 允许只对多项式进行设定.
In[41]:=
Click for copyable input
Out[41]=

数域 的调节子是 在对数嵌入

下的单位群的像的点格体积，这里 、...、 为 在 上的实数嵌入，、...、 为 在 上复数嵌入的每一个共轭对之一.

这是 的调节子.
In[42]:=
Click for copyable input
Out[42]=
这里给出了由多项式 的一个根生成的域的调节子. 调节子的值与根的选择无关；因此 NumberFieldRegulator 允许只对多项式进行设定.
In[43]:=
Click for copyable input
Out[43]=
这里给出了 的类数.
In[44]:=
Click for copyable input
Out[44]=
Send Feedback
Mathematica 9 is now available!

400+ new features, including the new Wolfram Predictive Interface, social network analysis, enterprise CDF deployment, and more »

Try Now
Buy/Upgrade
New to Mathematica? Find your learning path »
Have a question? Ask support »