Re: plotting a solid
- To: mathgroup at smc.vnet.net
- Subject: [mg42154] Re: [mg42139] plotting a solid
- From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
- Date: Sat, 21 Jun 2003 02:49:32 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
How about
<< Calculus`Integration`
Plot3D[f[x, y]*Boole[
x^2 + y^2 ¡Â 1], {x, -1.1, 1.1}, {y, -1.1, 1.1},
BoxRatios->{1,1,1},PlotPoints -> 100]
This graph looks exactly the same as yours so it's only advantage is
that it is not "faked".
If you would rather see something different, you might load
<<Graphics`InequalityGraphics`
and try
InequalityPlot3D[{z<f[x,y],x^2+y^2¡Â1},{x,-1.1,1.1},{y,-1.1,1.1},{z,0,
3},PlotPoints->100]
which will produce a graph of the surfaces bounding your solid.
Andrzej Kozlowski
Yokohama, Japan
http://www.mimuw.edu.pl/~akoz/
http://platon.c.u-tokyo.ac.jp/andrzej/
On Friday, June 20, 2003, at 05:57 PM, Selwyn Hollis wrote:
> I'm interested in a way of plotting a solid defined by
>
> 0 <= z <= f[x,y], g[x,y] <= 0,
>
> that's better than what I've been doing, which is to fake it using
> ClipFill and PlotRange something like this:
>
> f[x_, y_] := (-x + 1)*(y^2 + 1)
>
> Plot3D[ If[x^2 + y^2 <= 1, f[x, y], -1],
> {x, -1.1, 1.1}, {y, -1.1, 1.1}, PlotRange -> {0, 3},
> ClipFill -> None, PlotPoints -> 100, Mesh -> False,
> BoxRatios -> {1, 1, 1}]
>
> Any ideas?
>
>
> -----
> Selwyn Hollis
> http://www.math.armstrong.edu/faculty/hollis
>
>
>