mathematical的应用

《mathematical的应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、数学分析实验报告姓名：胡兰学号:12122998成缋:小组成员：魏伦，林易宁，董莹，胡兰所用程序：WolframMathematica9.0内谷摘要我们主要从三方面来讲述我们学到的知识，我们使用WolframMathematica9.0的制图功能绘制了我们熟悉的机器猫；同时也借助绘图工具绘制了《高等数学》（上海大学数学系编，高等教育出版社，2011.1）中函数的图像。另外站在一年微积分和线性代数的学习之上，我们用WolframMathematica9.0演算了函数极限、导数与微分、不定积分和定积分、线性代数运算和线性规划问题。目录一绘图1.机器

2、猫；2.MATH字样；3.东方明珠；二函数图形的绘制1.—元函数；2.多元函数；3.参数阑数；三微和分1.函数与极限；2.导数与微分；3.多元函数的偏导数与全微分;4.不定积分；5.定和分6.函数的局部极值；7.线性规划；绘图1.机器猫（平面参数曲线，一元函数，二维图元作图）原图:头部:ParametricPlot[{x=Sin[t],y=Cos[t]}z{t,0,2Pi}JmageSize—>Medium]ParametricPlot[{x=Sqrt[0.8]Cos[t]zy=Sqrt[0.5]Sin[t]},{t/-Pi,0}]嘴巴：Par

3、ametricPlot[{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

4、.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,-l}]Plot[0.384x,{x,-0.35,-0.95}]Plot[0.384x,{x,0.35,0.95}]Plot[-0.384x,{x,-0.35

5、,-0.95}]Plot[-0.384x,{x,0.35,0.95}]去掉坐标系显示：Show[%120,%121r%122r%123r%124r%125r%126,%127z%128,%129,%130,私131,%132,%133,私134,%135,私136,«tel37r%138,AxesFalse]2.MATH字样(折线图)(l)ln[5]:=Show[Graphics[Line[{{-1.2,0.8},{-1.8Z0}r{-2.5,1.8},{-3.8,1.8}f<-6,0}#{-7,2.7},<-8,1.2},{-9,2.7},{

6、-10,0},{-{-9.1r5.5},{-8.9,5.5},{-8f2.5},{-7.1r5.5},{-6{-5,1.2}f{-3,5.5}f{-0.6,0},{0.5,0}f{0.5,4.6}4{-1,5.5},{3,5.5),{3,4.6},{1.5,4.6},{1.5,0},{{4,5.5}，{5,5.5},{5,3.5},{7,3.5},{7,5.5},{8,!{7,0},{7,2.5},{5,2.5},{5Z0}}]]](-4.5,0),11，1}，•9,5.5},{-1,4.6},»,0},.5}r{8r0},Out[9}=(3)

7、Show3.东方明珠三个主球：al=ParametricPlot3D[{2Cos[t]Cos[u]/2Sin[t]Cos[u],2Sin[u]-2},{t,0/2Pi}z{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=ParametNcPlot3D[{0.5Cos[t]Cos[u],0.5Sin[t]Cos[u]z0.5Sin[u]+13},{t/0,2Pi},{u,0z2Pi}]线:a4=S

8、how[Graphics3D[Line[{{-0.05,0,13},{-0.05,0,8.5}}]]]a5=Show[Graphics3D[Line[