mathematica软件包介绍(11秋)课件.ppt

Mathematica 软件包简介主讲：戴永红 科学计算软件：Mathematica ????对于个人用户而言，知道Mathematica的人可能不太多。但在科学计算领域它却是声名显赫，Mathematica系统是目前世界上应用最广泛的符号计算系统，它是由美国科学家Stephen Wolfram领导的Wolfram公司开发研制的一个用途广泛的科学计算软件，能够完成符号和数值运算、数学图形绘制甚至动画制作等多种功能。 MATHEMATICA的目标 建立一个系统，为各个领域各种水平的技术人员提供一个理想的工作助手． 发展历史： 1988年6月23日问世（第一版） 1991年 第二版 1996年 第三版 1999年 第四版 2003年 第五版 2007年 第六版 2008年 第七版 2011年 第八版（8.01中文版） Mathematica的特点 Mathematica的基本操作 用Mathematica探讨 图象 m = 0; a = 10^(-m); Plot[Sin[1/x], {x, -a, a}] d = Table[{1/n, Sin[n]}, {n, 1, 10000}]; p1 = ListPlot[d] ** Pi==22/7, 355/113 *** d=44; t1=Table[{1/n,Sin[n]},{n,3,10000,d}]; t2=Table[{1/n,Sin[n]},{n,6,10000,d}]; p2=ListPlot[t1,PlotJoined-True]; p3=ListPlot[t2,PlotJoined-True]; Show[p1,p2,p3] 极坐标图形 Graphics`Graphics` PolarPlot[{f,g,…},{t,tmin,tmax}] 画出多个极坐标方程的图形 PolarPlot[4 Cos[3 t], {t, 0, 2 Pi}] PolarPlot[{4/(2 + Cos[t]), 4 Cos[t] - 2}, {t, 0, 2 Pi}] 例 螺线：ParametricPlot3D[{Exp[0.1t]Sin[t], Exp[0.01t] Cos[t], t/3},{t, 0, 15}] 正弦曲面：ParametricPlot3D[{t,u,Sin[t u]}, {t,0,3},{u,0,3}] 球面： ParametricPlot3D[{Cos[t]Sin[s], Sin[t]Sin[s], Cos[s]}, {t,0,2Pi}, {s,0,Pi}] 环面：ParametricPlot3D[{Cos[t](3+Cos[s]), Sin[t](3+Cos[s]),Sin[s]}, {t,0,2Pi},{s,0,2Pi}] 例 球面环面 ParametricPlot3D[{{Cos[t]Sin[s], Sin[t]Sin[s], Cos[s]}, {Cos[t](3+Cos[s]), Sin[t](3+Cos[s]),Sin[s]}}, {t,0,2Pi}, {s,0,Pi}] 两个柱面 z=Sqrt[1-x^2] x=Cos[t] ParametricPlot3D[{{x,s,z},{x,s,-z}, {s,x,z},{s,x,-z}}, {t,0,2Pi},{s,-2,2}] g = Plot3D[Exp[-(x^2+y^2)],{x,-2,2}, {y,-2,2}] Show[g, Mesh - False] Show[g, Shading