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

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

```

• Prev by Date: Re: Re: NDSolve[] with nested If[] and Piecewise[] usage
• Next by Date: Re: Help to remove equivalent (redundant) solutions from FindRoot[]
• Previous by thread: four dimensional plot
• Next by thread: Re: four dimensional plot