原创力文档- 1、本文档共20页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
工程数学试验汇报
20XX-20XX-2学期
学部:
班级:
姓名:
学号:
电话:
Ⅰ 展示图形之美篇
要求：包含到文字用汉字宋体五号字，Mathematica程序中字体用Times New Roamn。
【数学试验一】题目：利用Mathematica制作以下图形
（1），，其中k取值为自己学号后三位。
（2），其中k取值为自己学号后三位。
Mathematica程序：（1）ParametricPlot[{423Sin[t],423Sin[2t]},{t,0,2Pi}]
(2)
x=Sin[u]Cos[423v]
y=Sin[u]Cos[v]
z=Cos[u]
ParametricPlot3D[{Sin[u]Cos[423v],Sin[u]Cos[v],Cos[u]},{u,0,Pi},{v,0,2Pi}]
运行结果：
【数学试验二】题目：请用Mathematica制作五个形态各异三维立体图形，图形函数自选，也能够由多个函数组成更美观、更复杂图形；并用简短语言说明选择该图形理由和意义。
Mathematica程序：
x[u_,v_]:=Sin[u]Cos[v];
y[u_,v_]:=Sin[u]Sin[v];
z[u_,v_]:=Cos[u];
ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,-Pi/12,Pi/12Pi},{v,0,4Pi},Boxed->False,BoxRatios?{1,1,1}]
运行结果：
图片像一个窝窝头，粮食是人类生存之本
Mathematica程序：ParametricPlot3D[{r,Exp[-r^2Cos[4r]^2]*Cos[t],Exp[-r^2Cos[4r]^2]Sin[t]},{r,-1.2,1.2},{t,0,2Pi}]
运行结果：
图片像一块奶糖
Mathematica程序：
ContourPlot3D[(2x^2+y^2+z^2-1)^3-(x^2z^3)/10-y^2*z^3?0,{x,-1.4,1.4},{y,-1.4,1.4},{z,-1.4,1.4},PlotPoints?30,Axes?False,Lighting?Automatic,ContourStyle?{RGBColor[1,.5,.5]},Mesh?None]
运行结果：
图片像一颗红心
Mathematica程序：
ParametricPlot3D[{Cos[s](3+Cos[t]),Sin[s](3+Cos[t]),Sin[t]},{s,0,2Pi},{t,0,2Pi}]
运行结果：
图片像一个面包圈
Mathematica程序：
Plot3D[Sin[x+y]*Cos[x+y],{x,0,4},{y,0,4},Mesh->False]
运行结果：
图片像海上波浪
Ⅱ演算微积分之捷篇
要求：包含到文字用汉字宋体五号字；用word中公式编辑器输入包含到数学公式；Mathematica程序中字体用Times New Roamn。
【数学试验一】题目：计算下列极限。
（1）；（2）；（3）；
（4），其中k取值为自己学号后三位。
Mathematica程序：
Limit[Product[Cos[x/2^n],{n,1,Infinity}],n->Infinity]
Limit[Sin[(x+k)^(1/2)]-Sin[x^(1/2)],x->Infinity]
Limit[(Tan[423x])^2/(1-Cos[x]),x->0]
Limit[Exp[1/x] Sin[423/x^2]+x*ArcTan[1/x],x->0,Direction->1]
运行结果：
Sinc[x]
0
357858
0
【数学试验二】题目：若（其中k取值为自己学号后三位），利用Mathematica软件计算。
Mathem
文档评论（0）