0.40.212345-0.2 Out[2]= -Graphics- 限制长宽比例： In[3]:=Plot[f[x],{x,0,2Pi},AspectRatio->1/2] 长宽比例为1：2 0.40.21-0.22345 Out[3]= -Graphics- (2) 如果要取消刻度可以使用Ticks选项： In[4]:=Plot[f[x],{x,0,2Pi},Ticks->None] Out[4]= -Graphics- (3) 如果要标注坐标名称x 轴为“Time”，y轴为“Height”： In[5]:= Plot[f[x],{x,0,2Pi},AxesLabel->{“time”,”height”}] height0.40.21-0.223456
26
Out[5]= -Graphics-
(4) 将坐标原点移到点（3，0），并标注图形名称为Decay waves： In[6]:= Plot[f[x],{x,0,2Pi},AxesOrigin->{3,0},PlotLabel->“Decay waves”]
Decay0.4waves0.2012-0.245 Out[6]= -Graphics-
(5) 修改x方向的刻度，y轴方向的刻度则用默认值：
In[7]:= Plot[f[x],{x,0,2Pi},Ticks->{{0,Pi/2,Pi,3Pi/2,2Pi},Automatic}]
Out[7]= -Graphics- (6) 定义y轴的绘图范围： In[8]:= Plot[f[x],{x,0,2Pi},PlotRange->{-0.6,0.6}] 0.40.21-0.2-0.42345 Out[8]= -Graphics-
(7) 另外我们也可以将图形结果定义给变量，但不显示图形，后用Show命令显示： In[9]:=g1=Plot[f[x],{x,0,2Pi},DisplayFunction->Identity] g2=Plot[x*Cos[x]/12,{x,0,2Pi}, DisplayFunction->Identity]
27
Show[g1,g2, DisplayFunction->$ DisplayFunction] Out[9]= -Graphics- Out[10]= -Graphics-
0.40.21-0.22345 Out[11]= -Graphics-
2. 数据集合的图形
Mathematica用于绘数字集合的图形的命令与前而介绍的绘函数图形的命令是相似的。如下： ListPlot[{y1,y2,…..}] 绘出在x的值为1，2…时y1,y2,…的图形 ListPlot[{{x1,y1},{x2,y2},…..}] 绘出离散点（xi,yi） ListPlot[List,PlotJoined->True] 把离散点连成曲线 (1)下面举例说明下面是一个离散数据的集合的图形： In[1]:=List1=Table[i^3+i,{i,10}] Out[1]={2,10,30,68,130,222,350,520,738,1010} In[2]:=ListPlot[List1] 1000800600400200468 Out[2]= -Graphics- 3. 二维参数作图
前面我们使用Plot命令可以绘出直角坐标系下的函数图形，使用ParametrecPlot可以绘制参数曲线下面给出ParametricPlot的常用形式：
ParametricPlot[{fx,fy},{t,tmin,tmax}] 绘出参数图 ParametricPlot[{fx,fy},{gx,gy},….{t,tmin,tmax}] 绘出一组参数图
28
ParametricPlot[{fx,fy},{t,tmin,tmax},AspectRatio->Automatic] 设法保持曲线的形 (1) 绘制参数方程??x?sin3tcost?y?sin3tsint的图形
In[1]:= ParametricPlot[{Sin[3t]Cos[t],Sin[3t]Sin[t]},{t,0,2Pi}]
0.50.25-0.75-0.5-0.25-0.25-0.5-0.75-10.250.50 Out[1]= -Graphics-
(2) 下面将一个园与上面参数方程的图象绘在同一个坐标下，并保证图形的形状正确： In[2]:= ParametricPlot[{{Sin[3t]Cos[t],Sin[3t]Sin[t]},{Sin[t],Cos[t]}},{t,0,2Pi}, AspectRatio->Automatic]
10.5-1-0.50.5-0.5-1 Out[2]= -Graphics-
4.2 二维图形元素 用图形元素绘图适合于绘制结构复杂的图形。Mathematica中还提供了各种如绘制点、线段、圆弧等函数。同样我们可先用Graphics作出平面图形的表达式，再用Show显示守成的图形。下面给出在Mathematica中常用的二维图形元素：
Point[[x,y]] 点 Line[{{x1,y1},{x2,y2},…}] 线段
29
Rectangle[{xmin,ymin},{xmax,ymax}] 填充矩阵 Polygon[{{x1,y1},{x2,y2},…….}] 填充多边形 Circle[{x,y},r] 圆
Circle[{x,y},{rx,ry}] 半轴分别为rx,ry的椭圆 Circle[{x,y},r,{theta1,thata2}] 圆弧 Circle[{x,y},{rx,ry},{theta1,theta2}] 椭圆弧 Disk[{x,y},r] 填充圆
Raster[{{a11,a12,…..},{a21,……},….}] 灰度在0到1之间的灰层组 Text[Expr,{x,y}] 文本大小 下图绘出一个有颜色和大小的点，且在图形四周插入文本：
In[1]:=g1=Graphics[{Text[“Left”,{-1,0},{-1,0}],Text[“Right”,{1,0},{1,0}],Text[“Above”,{0,1},{0,-1}],Text[“Below”,{0,-1},{0,-1}],{PointSize[0.3],Point[{0,0}]}},PlotRange->All]
Show[g1] Out[1]= -Graphics-
AboveLeftRigBelow Out[2]= -Graphics- 下面绘制一些有线条组成的图形： In[3]:=sawline=Line[Table[{n,(-1)^n},{n,6}]] Show[Graphics[sawline]] Out[3]=Line[{{1,-1},{2,1},{3,-1},{4,1},{5,-1},{6,1}}] Out[4]= -Graphics-
当然也可以添加坐标轴，下面的例子说明了这一点：
30