New answers tagged

5

You can do something like this grid = Flatten[ Table[x*{1, 0} + y*{-1/2, Sqrt[3]/2}, {x, -Pi, Pi, .25}, {y, -Pi, Pi, .25}], 1]; ListPlot[grid] z[{x_, y_}] := Sin[x]*Cos[y] Z = z /@ grid; data = Append[Transpose[grid], Z]; data = Transpose[data]; ListPlot3D[data]


Top 50 recent answers are included