Mathematica数据处理(1)--安斯库母四重奏

第一次先讲一下Mathematica对于数据的处理

想法来源于下面的博客(具体的原理这里讲的很明白)

http://blog.csdn.net/overstack/article/details/37810215

我在这里想利用Mathematica得到这四张图象

下面的图像里是数据

第一步：数据的处理

{d1, d2, d3, d4} = raw[[All, #]] & /@ Partition[Range[8], 2]

解释：raw[[All,{1,2}]]表示取出raw中第一第二列的元素

如下图：得到第一第二列的数据

得到以下数据：

{{{10., 8.04}, {8., 6.95}, {13., 7.58}, {9., 8.81}, {11., 8.33}, {14., 9.96}, {6., 7.24}, {4., 4.26}, {12., 10.84}, {7., 4.82}, {5., 5.68}}, {{10., 9.14}, {8., 8.14}, {13., 8.74}, {9., 8.77}, {11., 9.26}, {14., 8.1}, {6., 6.13}, {4., 3.1}, {12., 9.13}, {7., 7.26}, {5., 4.74}}, {{10., 7.46}, {8., 6.77}, {13., 12.74}, {9., 7.11}, {11., 7.81}, {14., 8.84}, {6., 6.08}, {4., 5.39}, {12., 8.15}, {7., 6.42}, {5., 5.73}}, {{8., 6.58}, {8., 5.76}, {8., 7.71}, {8., 8.84}, {8., 8.47}, {8., 7.04}, {8., 5.25}, {19., 12.5}, {8., 5.56}, {8., 7.91}, {8., 6.89}}}

其中一对大括号里的表示一个点的x，y坐标（可参考上面的数据表）

第二部：绘制图像

Show[
   ListPlot[#, PlotMarkers -> {"*"}, PlotStyle -> Red, 
    AxesOrigin -> {0, 0}],
   Plot[Evaluate@Fit[#, {1, x}, x], {x, 0, 20}]
   ] & /@ {d1, d2, d3, d4}

这段代码里没什么难以理解的，于是得到结果，如下图

至此，就完成了绘图的工作。

以上，所有。