矩阵运算及方程组求解
- 格式:docx
- 大小:185.20 KB
- 文档页数:17
附录Ⅰ 大学数学实验指导书
项目五 矩阵运算与方程组求解
实验1 行列式与矩阵
实验目的
把握矩阵的输入方式. 把握利用Mathematica 以上版本) 对矩阵进行转置、加、减、
数乘、相乘、乘方等运算, 并能求矩阵的逆矩阵和计算方阵的行列式.
大体命令
在Mathematica中, 向量和矩阵是以表的形式给出的.
1. 表在形式上是用花括号括起来的假设干表达式, 表达式之间用逗号隔开.
如输入
{2,4,8,16}
{x,x+1,y,Sqrt[2]}
那么输入了两个向量.
2. 表的生成函数
(1) 最简单的数值表生成函数Range, 其命令格式如下:
Range[正整数n]—生成表{1,2,3,4,…,n};
Range[m, n]—生成表{m,…,n};
Range[m, n, dx]—生成表{m,…,n}, 步长为dx.
2. 通用表的生成函数Table. 例如,输入命令
Table[n^3,{n,1,20,2}]
那么输出 {1,27,125,343,729,1331,2197,3375,4913,6859}
输入
Table[x*y,{x,3},{y,3}]
那么输出 {{1,2,3},{2,4,6},{3,6,9}}
3. 表作为向量和矩阵
一层表在线性代数中表示向量, 二层表表示矩阵. 例如,矩阵 5432
能够用数表{{2,3},{4,5}}表示.
输入
A={{2,3},{4,5}}
那么输出 {{2,3},{4,5}}
命令MatrixForm[A]把矩阵A显示成通常的矩阵形式. 例如,输入命令:
MatrixForm[A]
那么输出 5432
注:一样情形下,MatrixForm[A]所代表的矩阵A不能参与运算.
下面是一个生成抽象矩阵的例子.
输入
Table[a[i,j],{i,4},{j,3}]
MatrixForm[%]
那么输出
]3,4[]2,4[]1,4[]3,3[]2,3[]1,3[]3,2[]2,2[]1,2[]3,1[]2,1[]1,1[aaaaaaaaaaaa
注:那个矩阵也能够用命令Array生成,如输入
Array[a,{4,3}]4. 命令IdentityMatrix[n]生成n阶单位矩阵.
例如,输入
IdentityMatrix[5]
那么输出一个5阶单位矩阵(输出略).
5. 命令DiagonalMatrix[…]生成n阶对角矩阵.
例如,输入
DiagonalMatrix[{b[1],b[2],b[3]}]
那么输出 {{b[1],0,0},{0,b[2],0},{0,0,b[3]}}
它是一个以b[1], b[2], b[3]为主对角线元素的3阶对角矩阵.
6. 矩阵的线性运算:A+B表示矩阵A与B的加法;k*A表示数k与矩阵A的乘法; 或
Dot[A,B]表示矩阵A与矩阵B的乘法.
7. 求矩阵A的转置的命令:Transpose[A].
8. 求方阵A的n次幂的命令:MatrixPower[A,n].
9. 求方阵A的逆的命令:Inverse[A].
10.求向量a与b的内积的命令:Dot[a,b].
实验举例
矩阵的运算
例 设,421140123,321111111BA求AAB23及.BAT
输入
A={{1,1,1},{1,1,1},{1,2,3}}
MatrixForm[A]
B={{3,2,1},{0,4,1},{1,2,4}}
MatrixForm[B]
2AAAB23BAT33442142414101010120821444,5123641033252312A.1A1652116114581081218192829211161121162147.11111111111122222222ddddccccbbbbaaaaD2222)1)()()()()()((dcbaabcddcdbdacbcaba,60975738723965110249746273A.),(|,|3AAtrA3),(|,|AAtrA12574547726668013841222451984174340410063122181713228151626315018483582949442062726,150421321,111111111BA求AAB23及.BA
2.设,001001A求.10A一样地?kA (k是正整数). 3.求aaaaa1111111111111111111111111的逆.
4.设,321011324A且,2BAAB求.B
5.利用逆矩阵解线性方程组.353,2522,132321321321xxxxxxxxx
实验2 矩阵的秩与向量组的最大无关组
实验目的 学习利用Mathematica以上版本)求矩阵的秩,作矩阵的初等行变换; 求向
量组的秩与最大无关组.
大体命令
1. 求矩阵M的所有可能的k阶子式组成的矩阵的命令:Minors[M,k].
2. 把矩阵A化作行最简形的命令:RowReduce[A].
3. 把数表1,数表2, …,归并成一个数表的命令:Join[list1,list2,…]. 例如输入
Join[{{1,0,1},{3,2,1}},{{1,5},{4,6}}]
那么输出 {{1,0,1},{3,2,1},{1,5},{4,6}}
实验举例
求矩阵的秩
例 设,815073131223123M 求矩阵M的秩.
输入
Clear[M];
M={{3,2,1,3,2},{2,1,3,1,3},{7,0,5,1,8}};
Minors[M,2]
那么输出 {{7,11,9,5,5,1,8,8,9,11},{14,22,18,10,10,2,
16,16,18,22},{7,11,9,5,5,1,8,8,9,11}}
可见矩阵M有不为0的二阶子式. 再输入
Minors[M,3]
那么输出
{{0,0,0,0,0,0,0,0,0,0}}
可见矩阵M的三阶子式都为0. 因此.2)(Mr
例 求矩阵3224211631095114047116的行最简形及其秩.
输入
A={{6,1,1,7},{4,0,4,1},{1,2,9,0},{1,3,16,1},{2,4,22,3}}
MatrixForm[A]
RowReduce[A]00000000100005100101
矩阵的初等行变换
例 用初等变换法求矩阵.343122321的逆矩阵.
输入 A={{1,2,3},{2,2,1},{3,4,3}}
MatrixForm[A]
Transpose[Join[Transpose[A],IdentityMatrix[3]]]1112/532/3231)7,5,1,3(),5,4,3,1(),1,1,1,1(),3,2,1,1(43210000010010102001
向量组的最大无关组
例 求向量组 )0,5,1,2(),0,2,1,1(),14,7,0,3(),2,1,3,0(),4,2,1,1(54321
的最大无关组, 并将其它向量用最大无关组线性表示.
输入
Clear[A,B];
A={{1,1,2,4},{0,3,1,2},{3,0,7,14},{1,1,2,0},{2,1,5,0}};
B=Transpose[A];
RowReduce[B]000002/51000101102/10301非零行的首元素位于第一、二、
四列,因此421,,是向量组的一个最大无关组. 第三列的前两个元素别离是3,1,于是
.3213第五列的前三个元素别离是,25,1,21于是.25214215
实验习题
1.求矩阵12412116030242201211A的秩.
2.求t, 使得矩阵tA23312231的秩等于2.
3.求向量组)0,0,1(),1,1,1(),1,1,0(),1,0,0(4321的秩.
4.当t取何值时, 向量组),3,1(),3,2,1(),1,1,1(321t的秩最小?
5.向量组)1,1,1,1(),1,1,1,1(),1,1,1,1(),1,1,1,1(4321是不是线性相关?
6.求向量组)6,5,4,3(),5,4,3,2(),4,3,2,1(321的最大线性无关组. 并用最大无关
组线性表示其它向量.
7.设向量),6,3,3,2(),6,3,0,3(),18,3,3,8(),0,6,3,1(2121求证:向量组21,
与21,等价.
实验3 线性方程组
实验目的 熟悉求解线性方程组的经常使用命令,能利用Mathematica命令各类求线性方程