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、在曲面上绘制散点图。
