Mathematica数据处理(8)--美化(上)

今天我们来讲一下关于Plot画出图的美化

说是美化，其实就是关于一些画图选项，我会分三篇文章讲完

下面的是这次会用到的

一些函数,
Dash 虚线，
Thick 粗细，
Opacity 透明度，
ImageSize 图像大小，

PlotRange 画图范围，
AspectRatio 宽高比;

Plot[Sin[x], {x, 0, 2 Pi}]

这是默认情况下的图

下面我们想改变线的颜色和虚实

Plot[Sin[x], {x, 0, 2 Pi}, PlotStyle -> {Red, Dashed}]

得到下面的图

那么如何在一个坐标系中画出两条不一样的线呢

这里就要用到 Directive这个函数

Plot[{Sin[x], Cos[x]}, {x, 0, 6 Pi},
 PlotStyle -> {
   Directive[Red, Dashed, Thick],
   Directive[Blue, Opacity[.5], Thickness[.01]]
   },
 AspectRatio -> .5,
 ImageSize -> Large
 ]

得到下面的图

下面看一下对于散点图如何来美化

ListPlot[Prime[Range[25]]]

的到下面的图

我们想要改变点的颜色，形状，并把线连起来

ListPlot[
 Prime[Range[25]],
 PlotStyle -> {Dashed, Black},
 Joined -> True,
 Mesh -> All,
 PlotMarkers -> {Graphics[Circle[{0, 0}, 1]], .03},
 ImageSize -> Large
 ]

的到下面的图

我们看一下PlotRange的一些其他的用处

Plot[Sin[x], {x, 0, 2 Pi},PlotRange -> {{Pi/2 - .005, Pi/2 + .005}, {0.99999, 1}}]

注意看坐标

对的，其实每一条曲线都是有直线段组成的

你们可以试一下下面这段代码

Manipulate[Plot[Sin[x]*a, {x, 0, 6}, PlotRange -> {{0, 6}, {-2, 2}}], {a, 0, 2}]
Manipulate[Plot[Sin[x]*a, {x, 0, 6}], {a, 0, 2}]

我就截个屏

这是关于图形美化的第一篇，还会有两篇

2016/8/14

以上，所有