Re: four dimensional plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg91527] Re: four dimensional plot*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Mon, 25 Aug 2008 05:07:35 -0400 (EDT)*References*: <g8rfei$f9h$1@smc.vnet.net>

Hi, data = Table[ Sin[x*y*z], {x, -Pi, Pi, 2 Pi/32}, {y, -Pi, Pi, 2 Pi/32}, {z, -Pi, Pi, 2 Pi/32}] // N; fun = ListInterpolation[data, {{-Pi, Pi}, {-Pi, Pi}, {-Pi, Pi}}]; ListContourPlot3D[data, Contours -> {0}] ContourPlot3D[fun[x, y, z], {x, -Pi, Pi}, {y, -Pi, Pi}, {z, -Pi, Pi}, Contours -> {0}] and what mean "it didn't work well". ListContourPlot3D[] is for *data* arranged in a List[] that is the reason why the function is named "ListContourPlot3D" and for a function there is the ContourPlot3D[] function without the "List" at the begin of the name. Regards Jens 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. > > shingo >