实验十二矩阵的秩与向量组的极大无关组数学实验课件习题答案.doc

天水师范学院数学与统计学院 实验报告 实验项目名称 矩阵的秩与向量组的最大无关组 所属课程名称 数学实验 实 验 类 型 上机实验 实 验 日 期 2013.5.17 班 级 10数应（2）班 学 号 291010836 姓 名 吴保石 成 绩 一、实验概述： 【实验目的】 学习利用Mathematica5.2命令求矩阵的秩，作矩阵的初等行变换；求向量组的秩与最大无关组． 【实验原理】 (1)　命令Minors[M，k]Join[{{1,0,-1},{3,2,1}},{{1,5},{4,6}}] 　　　 Join[{{1,0,-1},{3,2,1}},{1,5}] 由此可见，它把后面集合的元素顺次排在前面集合的元素之后，形成新的集合． 【实验环境】 系统 Microsoft Windows XP Professional 版本 2002 Service Pack 3 GhostXP_SP3电脑公司快速装机版V2011.07 Intel（R） Core（TM）i3 CPU 550 @ 3.20GHz 3.19GHz,1.74GB的内存 Mathematica 5.2 二、实验内容： 【实验方案】 通过在计算机上输入相关程序，解决一下问题： 1.求矩阵的秩 2.矩阵的初等行变换 3.向量组的秩 4.向量组的最大无关组 5.向量组的等价 【实验过程】（实验步骤、记录、数据、分析） １．求矩阵的秩 　矩阵M的秩即矩阵M的不为零的子式的最高的阶数．命令Minors[m，k]可得矩阵M的所有可能的k阶子式组成的矩阵．因此用命令Minors可以求出矩阵的秩． 例12.1　设，求矩阵M的秩．(*Example12.1*) 　　　Clear[M]; 　　　M={{3,2,-1,-3,-2},{2,-1,3,1,-3},{7,0,5,-1,-8}}; 　　　Minors[M,2] 　　　Minors[M,3] 例12.2　已知矩阵的秩等于２，求常数t的值．(*Example12.2*) 　　 Clear[M]; 　　 M={{3,2,-1,-3},{2,-1,3,1},{7,0,t,-1}}; Minors[M,3] 2．矩阵的初等行变换 　　命令RowReduce[A]把矩阵Ａ化为最简形．用初等行变换可以求矩阵的秩与矩阵的逆． 例12.3　设，求矩阵A 的秩．(*Example12.3*) 　　　Clear[A]; 　　　A={{2,-3,8,2},{2,12,-2,12},{1,3,1,4}}; 　　　RowReduce[A]//MatrixForm 例12 4　设，证明矩阵A可逆，并用初等行变换求A的逆．(*Example12.4*) 　　　Clear[A]; 　　　A={{1,2,3},{2,2,1},{3,4,3}}; 　　　D3=IdentityMatrix[3]; 　　　Ae=Transpose[Join[Transpose[A],D3]] 　　　EANi=RowReduce[Ae] 　　　MatrixForm[%] 　　　EANi[[{1,2,3},{4,5,6}]]//MatrixForm 3．向量组的秩 　矩阵的秩与它的行向量组，以及列向量组的秩相等，因此可以用命令RowReduce求向量组的秩． 例12.5　求向量组的秩．(*Example12.5*) 　　　Clear[A]; 　　　A={{1,2,-1,1},{0,-4,5,-2},{2,0,3,0}}; 　　　RowReduce[A]//MatrixForm 例12.6　向量组是否线性相关? 　　　Clear[A]; 　　　A={{1,1,2,3},{1,-1,1,1},{1,3,4,5},{3,1,5,7}}; 　　　RowReduce[A]//MatrixForm 例12.7　向量组是否线性相关? 　　　Clear[A]; 　　　A={{2,2,7},{3,-1,2},{1,1,3}}; 　　　RowReduce[A]//MatrixForm 4．向量组的最大无关组 　用命令RowReduce可以求向量组的最大无关组