用Mathematica进行嫉亩数运算.pptVIP

实验五 用Mathematica进行级数运算实验目的：学会利用Mathematica进行级数求和、函数幂级数展开预备知识：;边学边做：;（二）函数展开成幂级数 （1）将 在 处展开到 的5次幂 （2）将 在 处展开到( -1)的3次幂 （3）将 在 处展开到( -1)的3次 幂，在 处展开到 的2次幂;学生实验： 一、基础部分 1．求级数 与 的和 2．设 ,将 展开到 的4阶幂级数 3．将y=sin(xex)在点（0,0）处展开到x的7次幂 ４.将z=xy在（2,3)处展开为x的３次幂，y的４次幂。;二、应用部分;Sum[f(n),{n,a,b}] ;注：使用Series命令将函数在指定点按指点阶数展开时，结果是级数形式，其特征是以o[x]^n作为结尾，这种数据称为级数型数据，不便进行计算，也不能直接画图，在使用时，可以将其转换为多项式，然后再计算。需使用命令： Normal[Series] 如：a=Series[1/(1-x),{x,0,5}]，结果为 b=Normal[a]，结果为;二、边学边做;(3) algebra\symboblic.m。 Sum[x^n/n!,{n,0,Infinity}] \求级数的和，输出结果为 还可确定收敛域，只需要执行下列各条命令： Clear[f,a,b,n] f[x_] :=x^n/n!; a[n_]:=1/n!; b=Limit[a[n]/a[n+1],n-Infinity]; \确定收敛半径为∞,收敛域为(－∞,＋∞); algebra\symboblic.m。 Sum[（-1）^(n+1)*x^n/n,{n,1,Infinity}] \求级数的和，输出结果为Log[1+x] 还可确定收敛域，只需要执行下列各条命令： Clear[f,a,b,n] f[x_] :=（-1）^(n+1)*x^n/n; a[n_]:=（-1）^(n+1) /n; b=Limit[a[n]/a[n+1],n-Infinity]; Print[“R=”,Abs[b]] \确定收敛半径为1 Sum[f[1],{n,1,Infinity}] \确定原级数在x=1处收敛于Log[2] Sum[f[-1],{n,1,Infinity}] \确定原级数在x=-1处发散 因而原级数收敛域为（-1，1];2．函数展开成幂级数 （1）Series[Sin[x],{x,0,5}] （2）Series[1/(3-x),{x,1,3}] （3）Series[1/(x+y),{x,1,3},{y,1,2}]