MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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