Mathematica 二维点集三维绘图
写完了发现似乎没什么用处 需要自取
data=Table[{x,y,Sin[x]+Sin[y]},{x,-5,5,0.2},{y,-5,5,0.2}];
ArraySurfacePlot3D[array_]:=Block[{m,n,data,tmp},
{m,n}=Dimensions[array][[;;2]];
[email protected][Table[tmp=i*m+j-m;{tmp,tmp+1,tmp+n+1,tmp+n},{i,m-1},{j,n-1}],1];
Graphics3D[GraphicsComplex[Flatten[array,1],data]]
]
ArraySurfacePlot3D[data]