工程数学实验.docVIP

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

文档评论(0)

smashing + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档