第一次先讲一下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}
至此,就完成了绘图的工作。
以上,所有。