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

Re: ImplicitPlot3d

• To: mathgroup at smc.vnet.net
• Subject: [mg32039] Re: ImplicitPlot3d
• From: Daniel Meisel <Daniel.Meisel at Physik.UNI-Karlsruhe.de>
• Date: Thu, 20 Dec 2001 03:42:00 -0500 (EST)
• References: <9vmrhd$hfb$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Hi,

thank you all for your answers. Now I found what I was searching for.
That's what Hartmut Wolf told me (thanks):

"
Daniel, as I read your problem, you want to know from where to get the
package ImplictPlot3D. It is ever rewarding to start a search at
http://www.mathsource.com/
It will return
http://www.mathsource.com/Content/Enhancements/Graphics/3D/0203-409
the package and illustrations.

If you put the package into
"C:\Programme\Wolfram
Research\Mathematica\4.1\AddOns\StandardPackages\Graphics"
and then load

<<Graphics`ImplicitPlot3D`

?ImplicitPlot3D

"ImplicitPlot3D[eqn,{x,a,b},{y,c,d},{z,e,f}] draws a graph of the set of

points with coordinates (x,y,z) in the box a2x2b, c2y2d, e2z2f that
satisfy
the equation eqn.
ImplicitPlot3D[func,{x,a,b},{y,c,d},{z,e,f}] draws a graph of the set of

points with coordinates (x,y,z) in the box a2x2b, c2y2d, e2z2f that
satisfy
the equation func = 0."

you may plot the sphere:

ImplicitPlot3D[x^2+y^2+z^2-1,{x,-1,1},{y,-1,1},{z,-1,1}]//Timing

{54.038 Second, -Graphics3D-}

There are options

Options[ImplicitPlot3D]

{Compiled -> True, PlotPoints -> {{5,5,5},{3,3,3}},
  Passes -> Automatic}

I couldn't see any effect from changing passes. However explicitly
including
the subdivision into PlotPoints, e.g.

PlotPoints -> {{4},{3},{3}}

works. But beware of the calculation time!

PlotPoints -> {{5},{3}} is equivalent to PlotPoints ->
{{5,5,5},{3,3,3}},
etc.
"




Daniel Meisel schrieb:

> Hi,
>
> I'm searching for a way to plot for example the equation
>
> x^2 + y^2 + z^2 =1
>
> ( a sphere around the origin with radius 1) in 3d.
>
> I cannot use the parametric plot command.
>
> thanks in advance