Mathematica 线性代数 数学软件与数学实验 教学课件.pptVIP

写出分段函数 的Mathematica自定义函数形式,并画出其在[3,3]上的图形 解: 因此Mathematica 命令为: f[x_]:=If[x1, x+Sin[x], x*Cos[x]] Plot[f[x],{x,-3, 3}] 矩阵的运算 已知三阶方阵 A1 = {{1, 2, 3}, {2, 3, 1}, {3, 1, 2}}; Det[A1] Transpose[A1] E1 = Inverse[A1] 注：容易验证矩阵A1同它的逆矩阵E1之间有 A1.E1 = {{1，0，0}，{0，1，0}，{0，0，1}} 练习：  求解线性方程组 解： 问题的数学模型为： max z =0.4 x1 +0.28 x2 +0.32 x3 +0.72 x4 +0.64 x5 + 0.6x6 s.t. 0.02x1 + 0.05 x4 700 0.02x2 + 0.05 x5 100 0.03 x3 + 0.08x6 900 xi = 0 或 1 i = 1, ..., 6 Clear[CC,A,b] CC={-0.4,-0.28,-0.32,-0.72,-0.64,-0.6}; A={{-0.01,-0.01,-0.01,-0.03,-0.03,-0.03}, {-0.02,0,0,-0.05,0,0}, {0,-0.02,0,0,-0.05,0}, {0,0,-0.03,0,0,-0.08}}; b={-850,-700,-100,-900}; LinearProgramming[CC,A,b]//N -CC.%//N {35000., 5000., 30000., 0, 0, 0} 25000. 得最优解为： 工厂能达到的最大总值为： 例 某城市有6个区, 规划建消防站, 任何区发生火警时消防车要在15分钟内赶到, 各区间消防车行驶的时间见下表, 求设置消防站最少的方案。 设 xj 为在 j 地区设置消防站的决策(j = 1 , 2 , … , 6) 解： 整数规划问题为： min z = x1 + x2 + x3 + x4 + x5 + x6 s.t. x1 + x2 ? 1 x1 + x2 + x6 ? 1 x3 + x4 ? 1 x3 + x4 + x5 ? 1 x4 + x5 + x6 ? 1 x2 + x5 + x6 ? 1 xi = 0 或 1 i = 1, ..., 6 说明最优解 x2= x4= 1, 在地区2, 4设消防站。 Clear[CC,A,b] CC={1,1,1,1,1,1}; A={{1,1,0,0,0,0}, {1,1,0,0,0,1}, {0,0,1,1,0,0}, {0,0,1,1,1,0}, {0,0,0,1,1,1}, {0,1,0,0,1,1}}; b={1,1,1,1,1,1}; LinearProgramming[CC,A,b]//N {0, 1., 0, 1., 0, 0} 运行结果： 作业1 求：（1）屏幕输出A与B；（2）A的转置A′；（3）求A+B的值；（4）求A-B的值；（5）求4A；（6）求A×B；（7）求A-1． 已知矩阵 作业2 已知矩阵 求：（1） Ａ＇； （2）Ａ-１；（３）Ａ*B． * * Mathematica For Windows Mathematica I n 线性代数 1、Join[list1,list2]