【精品】Mathematica 绘图33.pptVIP

In[25]:=InputForm[%24] Out[25]//InputForm= Graphics[{PointSize[0.03], {Point[{1, 0}], Point[{2, 0.03973386615901225}], Point[{3, 0.1557673369234602}], Point[{4, 0.3387854840370213}], Point[{5, 0.5738848727196184}], Point[{6, 0.841470984807897}], Point[{7, 1.118446903160671}], Point[{8, 1.379629621983844}], Point[{9, 1.599317764866408}], Point[{10, 1.752925735580751}], Point[{11, 1.818594853651363}], Point[{12, 1.778692088403099}], Point[{13, 1.621111633322762}], Point[{14, 1.340303566735807}], Point[{15, 0.937966820436533}], Point[{16, 0.4233600241796004}]}}, {PlotRange - Automatic, AspectRatio - GoldenRatio^(-1), DisplayFunction : $DisplayFunction, ColorOutput - Automatic, ……………………………………… DefaultFont : $DefaultFont, RotateLabel - True, Frame - False, FrameStyle - Automatic, FrameTicks - Automatic, FrameLabel - None, PlotRegion - Automatic}] 常用的图形重画命令有: 命令形式1：Show[plot] 功能：重新显示图形Plot 命令形式2：Show[plot , option1-value1, …] 功能：按照选择设置option1-value1,…重新显示图形Plot 命令形式3：Show[plot1 , plot2, …,plotn] 功能：在一个坐标系中,显示n个图形 plot1 , plot2,…,plotn 例18: 在同一坐标系中画出两个函数y = cos 2x ,y = ln x ,的图形,自变量范围为:1? x ? 3 解:Mathematica 命令: In[26]:= g1=Plot[Sin[2x], {x,1,3}, DisplayFunction-Identity]; *将图形文件存在变量g1中 In[27]:= g2=Plot[Log[x] , {x,1,3}, DisplayFunction-Identity]; *将图形文件存在变量g2中 In[28]:=Show[g1,g2, DisplayFunction-$DisplayFunction] 例19: 先画出函数y=cos(e x2 )在 [0,1.5]部分的图形,再显示该图形自变量在0.6至0.8部分的图形。(见左图) 解: In[29]:= y= Plot[ Cos[ Exp[x*x] ] , {x, 0, 1.5}]; Show[y, PlotRange-{{0.6, 0.8},{-1, 1}}]; (见右图) 切面图形技巧 三维空间的切面可以是平行X.Y.Z轴的，也可以是任意角度放置的，但是共同的特征是所有的点在一个平面上 例: In[29]:= y1= Plot3D[ 0, {x, -3, 3} , {y, -3, 3}] Out[29]:= -SurfaceGraphics- In[30]:= y2 = Plot3D[ Sin[x + Sin[y]] , {x, -3, 3} , {y, -3, 3}] Out[30]:= -SurfaceGraphics- In[31]:= Show[y1, y2] Out[31]:= -SurfaceGraphics- In[32]:= y3 = Plot3D[ -0.5*x , {x, -3, 3} , {y, -3, 3}] Out[32]:= -SurfaceGraphics- In[33]:= Show[y3, y2] Out[33]:= -SurfaceGraphics-