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,

>>阅读原文<<