Re: [Maxima-discuss] How to make a 3d surface plot from 2d data matrix?

[德馬堤 <d00...@nt...>]

Now I found a solution:


M:matrix([1,2,2],[6,7,3],[7,10,4],[10,11,5])$   /* the Matrix that contains the data values z */
X:[1,3,5,10]$ Y:[1,3,6]$                                     /* the x and y values that generated z=M(x,y) */

plotsurface(M,X,Y):=block(
points:makelist(makelist([X[xx],Y[yy],M[xx,yy]],xx,1,length(M)),yy,1,length(M[1])),
draw3d(enhanced3d=true,interpolate_color=true,title="Title",
        xlabel="x",ylabel="y",zlabel="z",apply(mesh,points)))$

plotsurface(M,X,Y)$