Re: four dimensional plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg91514] Re: four dimensional plot*From*: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>*Date*: Mon, 25 Aug 2008 05:05:13 -0400 (EDT)*Organization*: The Open University, Milton Keynes, UK*References*: <g8rfei$f9h$1@smc.vnet.net>

shingo wrote: > Hi guys. I have some troubles in plotting. > I'd like to plot the value of the function $f(x,y,z)$. This function > $f$ can be evaluated only by numerically. I tried to use the built-in > function "ListContourPlot3D", but it didn't work well. If you have any > advices, please give it to me. Thanks in advance. You can generate a list of quadruples with Table[], then Flatten it to get a list in the required format {{x, y, z, f[x, y, z]}, ...}. For instance, f[x_, y_, z_] := x^2 + y^2 - z^2 + RandomReal[0.1] pts = Flatten[ Table[{x, y, z, f[x, y, z]}, {x, -2, 2, 0.2}, {y, -2, 2, 0.2}, {z, -2, 2, 0.2}], 1]; ListContourPlot3D[pts, Contours -> {0}, Mesh -> None] Regards, -- Jean-Marc