Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- z[x_, y_] = x*y
- data3d = Partition[Flatten[Table[{x, y, z[x, y]}, {x, 0, 10,1}, {y, 0, 1,0.01}]], 3];
- ListPlot3D[data3d]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
