判断矩阵的最大特征值

合集下载
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

项目六矩阵的特征值与特征向量

实验 1 求矩阵的特征值与特征向量

实验目的

学习利用Mathematica 以上版本) 命令求方阵的特征值和特征向量

; 能利用软件计算方阵的特征值和特征向量及求二次型的标准形.

求方阵的特征值与特征向量.

10 2 例( 教材例求矩阵 A 1 2 1 . 的特征值

与特值向量130

(1)求矩阵A的特征值.输入

A={{-1,0,2},{1,2,-1},{1,3,0}}

MatrixForm[A]

Eigenvalues[A]

则输出A的特征值

{-1,1,1}

(2)求矩阵A的特征向量.输入

A={{-1,0,2},{1,2,-1},{1,3,0}}

MatrixForm[A]

Eigenvectors[A]

则输出{{-3,1,0},{1,0,1},{0,0,0}}

3 1

即A的特征向量为1,0.

0 1

(3)利用命令Eigensystem同时矩阵A的所有特征值与特征向量.输入

A={{-1,0,2},{1,2,-1},{1,3,0}}

MatrixForm[A]

Eigensystem[A]

则输岀矩阵A的特征值及其对应的特征向量.

2 3 4

例求矩阵A 3 4 5的特征值与特征向量.

4 5 6

输入

A=Table[i+j,{i,3},{j,3}]

MatrixForm[A]

(1)计算矩阵A的全部(准确解)特征值,输入

Eigenvalues[A]

则输出

{0, 6 .. 42 , 6 , 42}

(2)计算矩阵A的全部(数值解)特征值,输入

Eigenvalues[N[A]]

则输出

{, , 10 16 }

(3)计算矩阵A的全部(准确解)特征向量,输入

17 2

42

23 4 42 17 2

42

23 4

_

42 20 3 42 23 4 42 20

3

42

23 4 _

42

0.430362 0.566542 0.7027220.80506 0.11119 0.582679

vvLinearAlgebra ' Orthogonalization

0.430362 0.566542 0.702722 0.80506

0.11119

0.582679

0.408248 0.816497

0.408248 1 2 3

M 2 1

3输入 3

3 6

Clear[M];

M={{1,2,3,},{2,1,3}{3,3,6}};

Eigenvalues[M]

Eigenvectors[M]

Eigensystem[M]

则分别输出

{-1,0,9}

{{-1,1,0},{-1,-1,1}{1,1,2}}

{{-1,0,9},{{-1,1,0},{-1,-1,1}{1,1,2}}}

1/3 1/3 1/2

例(教材例求矩阵A 1/5

1 1/3的特征值和特征向量的近似值 6

1

2

输入

0.408248 0.816497 0.408248

输入

Eigenvectors[A]

GramSchmidt[Eigenvectors[N[A]]]

A={{1/3,1/3,-1/2},{1/5,1,-1/3},{6,1,-2}};

Eigensystem[A]

则屏幕输出的结果很复杂,原因是矩阵A的特征值中有复数且其精确解太复杂.此时,可采用近似形式输入矩阵A, 则输出结果也采用近似形式来表达.

输入

A={{1/3,1/3,-1/2},{1/5,1,-1/3},{,1,-2}};

Eigensystem[A]

则输出

{{+,从中可以看到A有两个复特征值与一个实特征值.属于复特征值的特征向量也是复的

属于实特征值的特征向量是实的.

300

例(教材例已知2是方阵A 1 t 3的特征值,求t

1 2 3

输入

Clear[A,q];

A={{2-3,0,0},{-1,2-t,-3},{-1,-2,2-3}};

q=Det[A]

Solve[q==0,t]

则输出

{{t 8}}

即当t 8时,2是方阵A的特征值.

2 1 2

例(教材例已知x (1,1, 1)是方阵A 5 a 3的一个特征向量,求参数a,b及

1 b 2

特征向量x所属的特征值.

设所求特征值为t , 输入

Clear[A,B,v,a,b,t];

A={{t-2,1,-2},{-5,t-a,-3},{1,-b,t+2}}; v={1,1,-1};

B=;

Solve[{B[[1]]==0,B[[2]]==0,B[[3]]==0},{a,b,t}]

则输出

{{a -3, b 0, t -1}}

即a 3,b 0时,向量x (1,1, 1)是方阵A的属于特征值-1和特征向量

矩阵的相似变换

4 1 1

求一可逆矩阵P ,使P 1AP为对角矩阵例(教材例设矩阵A 2

2 2,

2 2

2

方法 1 输入

Clear[A,P];

A={{4,1,1},{2,2,2},{2,2,2}};

Eigenvalues[A]

0 1 1 0 1 1

P=Eigenvectors[A] 征向量为 1 J 1 与 1 , 矩阵P 1 1 1 .

1 1 1 1 1 1

可验证P 1AP为对角阵,事实上,输入

Inverse[P].

则输出

{{0,0,0},{0,2,0},{0,0,6}}

因此,矩阵A在相似变换矩阵P的作用下,可化作对角阵.

相关文档
最新文档