单元九Mathematica软件及其运用课件教学教材.pptVIP

例：有表d = {3，{2，x^2}，{3+y，{“abc”，{x}，4}}，c} 求(1) First[d] (2) Last[d] d[[3]] Take[d , 2] (5) Take[d , {2 , 3}] (6) d[[3 , 2 , 2]] 2、去掉元素 格式1：Rest[表]——去掉表的第一个元素 格式2：Drop[表 , n]——n为正值，去掉表的前n个元素， n为负值，去掉表的后n个元素 格式3： Drop[表 , {m , n}]——去掉表的第m至第n个元素 例 Rest[d ]； Drop[d , 2] 3、按序号选取元素 格式：表[[{s1 , s2 , …}]]——选出表中第s1 , s2 , …个元素作成一个新表 例：d[[1 , 4 , 1 , 2]] 4、表的元素替换 格式：表[[n]] = x —把表的第n个元素替换为x 例：d[[3]] = {1，2} 5、向表添加元素 格式1：Prepend[表，表达式]——将表达式加在原表的所有元素前 格式2： Append[表，表达式]——将表达式加在原表的所有元素后 格式3： Insert[表，表达式，n]——将表达式插在原表的第n个位置 6、表与表合并 格式1：Join[表1，表2，…]——把几个表的元素按顺序连接 格式2：Union[表1，表2，…]——表表合并，重复的元素只取一次 7、表的排序 格式：Sort[表]——将表中的元素按升序排列 8、表的长度 格式：Length[表]——统计表中的元素的个数 六、表的综合操作举例 1、生成表{{1，x}, {2，x2}, {3，x3}, {4，x4}} 2、取出所有子表的第一个元素 3、求所有子表的第一个元素的指数值 4、放回表中相应的位置 作业： 一、生成下列表 1、{1，4，9，16，…10000} 2、{n1，n2，…n50}其中ni= n/n!，精确到小数点后10位 3、{{1，2，3，…10}，…{1，2，3，…10}}共10个子表 4、{{1，2，3，…100}，{101，102，103，…200}，…{901，902，903，…1000}} 二、 1.已知f(x)=ex，求当x=1，2，3，4时的函数值列表及数对(x，y)的列表。 2.用Table生成一个自变量取值表，然后结合语句Transpose的用法，给出所生成表的自变量取值与对应正切函数值组成数对的二层表。 3.给定二层表{{1,2},{2,3},{3,4},{4,5},{5,6}}, 试用Mathematica命令取出这个表中所有子表的第二个元素组成的表，并取对数后放回原表的相应位置。 9.2 Mathematica软件的运用 9.2.1 用Mathematica 求极限 案例9.19 求下列极限 （1） （2） （3） （4） （5） （6） （7） 解 (1) In[1]:=Limit[Sin[5*x}/x,x-0] out[1]=5 (2) In[2]:=Limit[5^(1/x),x-0,Direction--1] out[2]=Infinity(Infinity为正无穷大”） (3) In[3]:=Limit[5^(1/x),x-0,Direction-1] out[3]=0 (4) In[4]:=Limit[Abs[x]/x,x-0,Direction-1]] out[4]=-1 (5) In[5]:=Limit [Abs[x]/x,x-0,Direction--1]] out[5]=1 (6) In[6]:=Limit[ArcTan[x],x-Infinity]] out[6]= (7) In[7]:=Limit[ArcTan[x],x--Infinity]] out[7]= 9.2.2 用mathematica 进行求导运算 在mathematica 系统中，用D[f[[x],x]表示f[x]对x的一阶导数，用D[f[[x],{x，n}]表示f[x]对x的n阶导数，在一定范围内，也能使用微积分中的撇号（撇号为计算机键盘中的单引号）标记来定义导函数，其使用方法为：若f[x]为一元函数，则f[x]给出f[x]的一阶导函数，而f[x0]给出函数f[x]在x=x0处的导数值，同样，f[x]给出f[x]的二阶导数，f[x]给出[x]的三阶导数. 单元九 Mathematica软件及其运用 9.1 Mathematica入门 9.1.1 Mathematica使用中的几