1、准备一组三维数据。这里面有1323个三维数据点。data // Dimensions

2、绘制这些点:ListPointPlot3D

3、拟合出一个曲面:ListPlot3D

4、在曲面上绘制这些点:Show

5、从一个封闭曲面上取一些点:data = Flatten[ Table[{Sin[u], Cos[u + v], Sin[v]}, {u, 0, 2 \[Pi], .2}, {v, 0, 2 \[Pi], .2}], 1];绘制散点图。

6、要想拟合出这个封闭的曲面,ListPlot3D行不通。

7、ListSurfacePlot3D也不完美。

8、没找到好的拟合方案,只能直接绘制参数方程的曲面了。

9、在曲面上绘制散点图。
