§92 Mathematica运算实例 矩阵运算 矩阵的基本运算函数 函 数 功 能 Transpose[m] 矩阵转置 RowReduce[m] 作行的线性变换化简m,求秩 Nullspace[m] Az=0的基础解系的向量 Det[m] m的行列式 Inverse[m] 矩阵[m的逆矩阵 m 矩阵的乘法
§9.2 Mathematica 运 算 实 例 一、矩阵运算 矩阵的基本运算函数 函 数 功 能 Transpose[m] 矩阵转置 RowReduce[m] 作行的线性变换化简m，求秩 Nullspace[m] Az=0的基础解系的向量 Det[m] m的行列式 Inverse[m] 矩阵[m]的逆矩阵 [m]·[n] 矩阵的乘法
例1求 289 A=4336 15910 1.A的转置 2.变换行成简化形式,并求秩 3.A的行列式 4.A的逆矩阵
= 15 9 10 4 33 6 2 8 9 A 例 1 求 1 . A 的 转 置. 2 . 变 换 行 成 简 化形 式，并 求 秩. 3 . A 的 行 列 式 4 . A 的 逆 矩 阵
解(1)首先在 Mathematica程序中键入 A={2,8,9},{4,33,6},{15,9,10}回车 键入 Transpose 按 Shifttenter得: out2}={2,4,15},{8,33,9},{9,6,10} (2)键入 Row Reduce按 Shift+enter得: out3]={1,0,0,0,1,0},{0,0,1}A的秩为3
解 （1）首先在Mathematica 程序中键入 A={{2，8，9}，{4，33，6}，{15，9，10}} 回车 键入Transpose[A] 按Shift+Enter得： out[2]={{2, 4, 15},{8, 33, 9},{9, 6, 10}} （2）键入RowReduce[A] 按Shift+Enter得： out[3]={{1, 0, 0},{0, 1, 0},{0, 0, 1}} A的秩为3
(3)键入DeA]按Shi+ Enter得: Out4=-3179 (4)键入 Inverse]按Shi+ Enter得 Out5 276 249 50 24 3179,31793179,3179,317931799 187,187,187 可以验证A与A相乘为单位矩阵
（3）键入Det[A] 按Shift+Enter得： Out[4]= -3179 （4）键入Inverse[A] 按Shift+Enter得： 0ut[5]= 可以验证A与A-1相乘为单位矩阵 . { , , }} {{ , , },{ , , }, 187 2 187 6 187 2 7 3179 2 4 3179 115 3179 5 0 3179 249 3179 1 3179 276 − − − − − −
W Untitled-1* 口 Transpose [a] out={{2,8,9},{4,33,6};{15;910}} ou={{2,4,15},{8,33,9},{9,6,10}} In[3]: RoTGReduce [A] ou3]{{1,0;0},{0,1;0},{0,0,1}} In[4]: Det [A] out=-3179 In[5]: Inverse [A] 0u⑤]= { 276 1 249 3179 31793179 50 115 24 2了 6 2 31793179 3179 187 187 187 100%▲ 499
-499-