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,

>>阅读原文<<