- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
mathematical的应用
数学分析实验报告
姓名: 胡兰 学号: 成绩:________
小组成员:魏伦,林易宁,董莹,胡兰
所用程序:Wolfram Mathematica 9.0
内容摘要
我们主要从三方面来讲述我们学到的知识,我们使用Wolfram Mathematica 9.0的制图功能绘制了我们熟悉的机器猫;同时也借助绘图工具绘制了《高等数学》(上海大学数学系编,高等教育出版社,2011.1)中函数的图像。另外站在一年微积分和线性代数的学习之上,我们用Wolfram Mathematica 9.0演算了函数极限、导数与微分、不定积分和定积分、线性代数运算和线性规划问题。
目录
一 绘图
机器猫;
MATH字样;
东方明珠;
二 函数图形的绘制
一元函数;
多元函数;
参数函数;
三 微积分
函数与极限;
导数与微分;
多元函数的偏导数与全微分;
不定积分;
定积分
函数的局部极值;
线性规划;
绘图
机器猫(平面参数曲线,一元函数,二维图元作图)
原图:
头部:ParametricPlot[{x=Sin[t],y=Cos[t]},{t,0,2Pi},ImageSize?Medium]
ParametricPlot[{x=Sqrt[0.8]Cos[t],y=Sqrt[0.5]Sin[t]},{t,-Pi,0}]
嘴巴:ParametricPlot[{x=Cos[t],y=Sqrt[0.4]Sin[t]},{t,0,Pi}]
眼睛:Show[Graphics[Circle[{0.2,0.57},{0.2,0.26}]]]
Show[Graphics[Circle[{-0.2,0.57},{0.2,0.26}]]]
Show[Graphics[Circle[{-0.11,0.52},{0.07,0.12}]]]
Show[Graphics[Circle[{0.11,0.52},{0.07,0.12}]]]
Show[Graphics[Circle[{-0.11,0.52},{0.02,0.042}]]]
Show[Graphics[Circle[{0.11,0.52},{0.02,0.042}]]]
鼻子:Show[Graphics[Circle[{0,0.25},0.13]]]
Show[Graphics[Line[{{0,0.1235},{0,-Sqrt[0.5]}}]]]
胡须:Plot[0.05x,{x,0.35,1}]
Plot[-0.05x,{x,-0.35,-1}]
Plot[0.384x,{x,-0.35,-0.95}]
Plot[0.384x,{x,0.35,0.95}]
Plot[-0.384x,{x,-0.35,-0.95}]
Plot[-0.384x,{x,0.35,0.95}]
去掉坐标系显示:
Show{%120,%121,%122,……,%138,Axes-False}
2.MATH字样(折线图)
(1)
(2)
(3)Show
、
3.东方明珠
三个主球:a1=ParametricPlot3D[{2Cos[t]Cos[u],2Sin[t]Cos[u],2Sin[u]-2},{t,0,2Pi},{u,0,2Pi}]
a2=ParametricPlot3D[{1.5Cos[t]Cos[u],1.5Sin[t]Cos[u],1.5Sin[u]+8.5},{t,0,2Pi},{u,0,2Pi}]
a3=ParametricPlot3D[{0.5Cos[t]Cos[u],0.5Sin[t]Cos[u],0.5Sin[u]+13},{t,0,2Pi},{u,0,2Pi}]
线:a4=Show[Graphics3D[Line[{{-0.05,0,13},{-0.05,0,8.5}}]]]
a5=Show[Graphics3D[Line[{{0.05,0,13},{0.05,0,8.5}}]]]
a6=Show[Graphics3D[Line[{{-0.6,0,-2},{-0.6,0,8.5}}]]]
a7=Show[Graphics3D[Line[{{0.6,0,-2},{0.6,0,8.5}}]]]
a8=Show[Graphics3D[Line[{{0.65,0,-1.9},{0.65,0,8.8}}]]]
a9=Show[Graphics3D[Line[{{-0.65,0,-1.9},{-0.65,
文档评论(0)