东南大学高等数学数学实验报告.docxVIP

下载本文档

35
0
约3.23千字
约 9页
2020-09-10 发布于浙江
举报
版权申诉

东南大学高等数学数学实验报告.docx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

PAGE / NUMPAGES 实验报告姓名：刘川学号：实验报告姓名：刘川学号：02A13306 高等数学A（下册）数学实验实验一：空间曲线与曲面的绘制实验题目利用参数方程作图，作出由下列曲面所围成的立体 Z = 1-x2-y2, x2 z = xy, x + y – 1 = 0及z = 0. 实验方案： (1)输入如下命令： s1=ParametricPlot3D[{u,v,u*v},{u,-1,1},{v,-1,2},DisplayFunction?Identity]; s2=ParametricPlot3D[{1-u,u,v},{u,-1,1},{v,-1,2},DisplayFunction?Identity]; s3=ParametricPlot3D[{u,v,0},{u,-1,1},{v,-1,1},DisplayFunction?Identity]; Show[s3,s2,s1,DisplayFunction?$DisplayFunction] 运行输出结果为： (2)输入如下命令： s1=ParametricPlot3D[{u,v,u*v},{u,-1,1},{v,-1,2},DisplayFunction?Identity]; s2=ParametricPlot3D[{1-u,u,v},{u,-1,1},{v,-1,2},DisplayFunction?Identity]; s3=ParametricPlot3D[{u,v,0},{u,-1,1},{v,-1,1},DisplayFunction?Identity]; Show[s3,s2,s1,DisplayFunction?$DisplayFunction] 运行输出结果为：实验二：无穷级数与函数逼近实验题目观察级数n=1∞ 实验方案输入如下命令： s[n_]:=Sum[k!/kk,{k,1,n}]; data=Table[s[n],{n,0,20}]; ListPlot[data] 运行输出结果为：输入如下命令： N[ 运行输出结果为： 1.87985 实验结论：由上图可知，该级数收敛，级数和大约为1.87；运行求和命令后，得近似值：1.887985. 实验题目： 2、改变函数f(x)=1+xm中m及实验方案：输入如下命令： m=-3;f[x_]:=(1+x)^m;x0=1; g[n_,x0_]:=D[f[x],{x,n}]/.x?x0; s[n_,x_]:=Sum[g[k,x0]/k!*(x-x0)^k,{k,0,n}]; t=Table[s[n,x],{n,20}]; p1=Plot[Evaluate[t],{x,-1/2,1/2}]; p2=Plot[(1+x)^m,{x,-1/2,1/2},PlotStyle?RGBColor[0,0,1]]; Show[p1,p2] 运行输出结果为：输入如下命令： m=-2;f[x_]:=(1+x)^m;x0=2; g[n_,x0_]:=D[f[x],{x,n}]/.x?x0; s[n_,x_]:=Sum[g[k,x0]/k!*(x-x0)^k,{k,0,n}]; t=Table[s[n,x],{n,20}]; p1=Plot[Evaluate[t],{x,-1/2,1/2}]; p2=Plot[(1+x)^m,{x,-1/2,1/2},PlotStyle?RGBColor[0,0,1]]; Show[p1,p2] 运行输出结果为：输入如下命令： m=-5;f[x_]:=(1+x)^m;x0=2; g[n_,x0_]:=D[f[x],{x,n}]/.x?x0; s[n_,x_]:=Sum[g[k,x0]/k!*(x-x0)^k,{k,0,n}]; t=Table[s[n,x],{n,20}]; p1=Plot[Evaluate[t],{x,-1/2,1/2}]; p2=Plot[(1+x)^m,{x,-1/2,1/2},PlotStyle?RGBColor[0,0,1]]; Show[p1,p2] 运行输出结果为：实验结论：由以上各图可知：当x趋近于某个值时，幂级数逼近原函数实验题目： 3、观察函数f(x)=-x, -π?x0x, 0?xπ 实验方案：由Fourier系数公式可得： a0= 1π-ππf(x)dx an= 1π[- bn= 1π[ f[x_]:=Which[-2Pi?x-Pi,1,-Pi?x0,-1,0?xPi,1,Pi?x2Pi,-1]; a[n_]:=(Integrate[-Cos[nx],{x,-Pi,0}]+Integrate[Cos[nx],{x,0,Pi}])/Pi; b[n_]:=(Integrate[-Sin[