Mathematica高数4 Mathematica在积分学中的应用 数学软件与 及数学实验 .ppt

;三、 Mathematica在积分学中的应用;定积分的思想是“分割、近似、求和、取极限”。 若函数f(x)在区间[a，b]上可积，则f(x)在[a，b]上的定积分为 ; Clear[f]; f[x_]:=x^2+1; a = 0; b = 2; m = 0; g = Plot[f[x], {x, 0, 2}, PlotStyle-RGBColor[1, 0, 0], DisplayFunction-Identity];;For[n = 0, n100, n = n + 4; t1 = {}; t2 = {}; For[i =0, in, i++, x1 = a+(b-a)i/n; x2 = x1 +(b-a)/n; t1 = Append[t1, Graphics[{RGBColor[0, 1, 0], Rectangle[{x1, f[x1]}, {x2, f[x2]}]}]]; t2 = Append[t2, Graphics[{RGBColor[0, 0, 1], Rectangle[{x1, f[x1]}, {x2, 0}]}]] ]; Show[t1, t2, g, PlotLabel-nintervals] ] 注：Graphics函数的Rectangle选项为作填充矩形图。t1为绿色矩形块，t2为蓝色矩形块。;求积分举例-2;求积分举例-3;四、 Mathematica在级数中的应用;Sinx的幂极数逼近函数的情形 For[i=0,i=45,i+=2; f[x_]:=Sum[(-1)^m/(2m+1)!*x^(2m+1),{m,0,i}]; Plot[{Sin[x],f[x]},{x,0,14Pi}, PlotRange-{{0,10Pi},{-1.5,1.5}}, PlotStyle-{RGBColor[1,0,0],RGBColor[0,1,0]}]] ;即等号用“＝＝”表示。一定不能写为“＝”，因为这是一个赋值 语句。另外!=，=，表示“不等”“大于等于”关系；！，， ｜｜分别表示逻辑上的“非”“与”“或”。这些在输入输出中出现 时，应理解它们的含义; 解方程常用的函数命令 1．? Solve［方程，未知量］ 表示解方程，给出未知量的解集 例如： In[1]:= Solve[7x+3==3x+8]; Solve总是试图给出解方程的明确公式。当然 这只能在方程的幂不超过４时才能完全做到。使 用Ｎ可得近似解。如： In[2]:= N[%] Out[2]={{x - -3.82843}, {x - 1.82843}} 使用替换符／· 可得解的集合形式： In[3]:= x/. % Out[3]={-3.82843, 1.82843} ;说明： 1.使用Solve还可解联立的方程，形式为 Solve[{方程１，…，方程ｎ}, {未知量１,…，未知量ｎ}] 如果对方程所含全部变量求解，则可以略去输入语 句中的表示求解变量的部分，即形 如：Solve[{方程１，……，方程ｎ},{…}] Solve[{x+y==1,2x-2y==3}, { }] ;2．FindRoot [方程,{ x ,a }]　 　 求出方程的一个ａ附近的近似解 In[7]:= FindRoot[Cos[x]==x,{ x ,1 }] Out[7]= { x - 0.739085 } ;六、 Mathematica 在常微分方程求解中的应用;例1;例2;例3;1.求下列函数的导数 ;3．计算 ， D2是由y=x, y=x+2, y=2, y=6所围成的区域;练习：