工程数学实验.docVIP

2015-2016-2学期工程数学实验报告 PAGE PAGE 18 成绩： 成绩： 工程数学实验报告 2015-2016-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] 运行结果：