2016数学实验作品-财管10班-201424571013-吴俏探索.doc

工程数学实验报告 201-2016-2学期 学部: 班级: 姓名: 学号: 电话: Ⅰ 展示图形之美篇 要求用中文宋体五号字，Mathematica程序中的字体用Times。 【数学实验一】题目：利用Mathematica制作如下图形 （1），，其中k的取值为自己学号的后三位。 （2），其中k的取值为自己学号的后三位。 Mathematica程序：ParametricPlot[{013Sin[t],013Sin[2t]},{t,0,2Pi}] 运行结果： Mathematica程序：x[u_,v_]:=Sin[u]Cos[013v]; y[u_,v_]:=Sin[u]Sin[v]; z[u_,v_]:=Cos[u]; ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,0,Pi},{v,0,2Pi},Boxed-False,BoxRatios-{1,1,1}] 运行结果： 【数学实验二】题目：请用Mathematica制作五个形态各异三维立体图形，图形函数自选，也可以由几个函数构成更美观、更复杂的图形；并用简短的语言说明选择该图形的理由和意义。 Mathematica程序：\ ContourPlot3D[3x^2+2y^2+2z^2?1,{x,-1,1},{y,-1,1},{z,-1,1}] 运行结果： Mathematica程序Plot3D[Sin[2/3x*y],{x,0,8},{y,0,8},PlotPoints?40,Mesh?False,Boxed?True,Axes?True] 运行结果： Mathematica程序：ContourPlot3D[{(x^2+(y^2)/4+3z^2-1)^3-5x^4z^3-(7y^2 z^3)/80?0},{x,-3,3},{y,-3,3},{z,-3,3},Boxed?False,PlotPoints?30] 运行结果： Mathematica程序：\ x[u_,v_]:=Sec[2u]Cos[2v]; y[u_,v_]:=Sec[3u]Sin[2v]; z[u_,v_]:=Tan[2u]; ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,-Pi/3,Pi/3},{v,0,2Pi},Boxed?False,BoxRatios?{1,1,1}] 运行结果： Mathematica程序：x[u_,v_]:=Sec[u]Cos[013v]; y[u_,v_]:=Cos[u]Sin[v]; z[u_,v_]:=Tan[u]; ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,0,Pi},{v,0,2Pi},Boxed-False,BoxRatios-{1,1,1}] 运行结果：Ⅱ演算微积分之篇 要求：涉及到的文字用中文宋体五号字；用word中的公式编辑器输入涉及到的数学公式；Mathematica程序中的字体用Times New Roamn。 【数学实验一】题目：计算下列极限。（1）；（2）；（3）；，其中k的取值为自己学号的后三位。 Mathematica程序： 运行结果：Mathematica程序：\ Limit[Sin[Sqrt[x+]]-Sin[Sqrt[x]],x??] 运行结果：Mathematica程序：Limit[Tan[x]^2/(1-Cos[x]),x?0] 运行结果：338Mathematica程序：Limit[Exp[1/x]*Sin[/x^2]+x*ArcTan[1/x],x?0,Direction?1] 运行结果： 【数学实验二】题目：若（其中k的取值为自己学号的后三位），利用Mathematica软件计算。 Mathematica程序：x[t_]:=t-Log[+t] y[t_]:=t^3+2*t G1=D[y[t],t]/D[x[t],t]