Re: Filling Between Surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg97722] Re: Filling Between Surfaces
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 19 Mar 2009 02:14:21 -0500 (EST)
- Organization: Uni Leipzig
- References: <gpqgh6$616$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
and
RegionPlot3D[
z > Sin[Pi*x*y] && z < Cos[Pi*x*y], {x, -1, 1}, {y, -1, 1}, {z, -1,
1}]
does not help ??
Regards
Jens
David Park wrote:
> Is it possible to fill between two surfaces? I can't see where the Help
> specifically says one can't, but neither does it give any examples of doing
> so and I believe, in fact, that one can't. It is, however, possible to fill
> a surface to a specific numerical value or to Top or Bottom.
>
>
>
> Examples:
>
>
>
> data1 = Table[Sin[i + j^2] + 2, {i, 0, 3, 0.1}, {j, 0, 3, 0.1}];
>
> data2 = Table[Sin[i + j^2], {i, 0, 3, 0.1}, {j, 0, 3, 0.1}];
>
>
>
> ListPointPlot3D[{data1, data2},
>
> Filling -> Bottom,
>
> FillingStyle -> Directive[Opacity[.3], Gray]]
>
>
>
> ListPointPlot3D[{data1, data2},
>
> Filling -> {2 -> {1}},
>
> FillingStyle -> Directive[Opacity[.3], Gray]]
>
>
>
> or
>
>
>
> ListPlot3D[{data1, data2},
>
> DataRange -> {{0, 3}, {0, 3}},
>
> RegionFunction -> Function[{x, y, z}, Norm[{x, y}] < 2.5],
>
> Filling -> {1 -> Bottom},
>
> FillingStyle -> Directive[Opacity[.3], Gray]]
>
>
>
>
>
> ListPlot3D[{data1, data2},
>
> DataRange -> {{0, 3}, {0, 3}},
>
> RegionFunction -> Function[{x, y, z}, Norm[{x, y}] < 2.5],
>
> Filling -> {1 -> {2}},
>
> FillingStyle -> Directive[Opacity[.3], Gray]]
>
>
>
> It is a disappointment not to have that capability because it would be a way
> represent a solid volume that was filled with a kind of translucent
> material.
>
>
>
> David Park
>
> djmpark at comcast.net
>
> <http://home.comcast.net/~djmpark> http://home.comcast.net/~djmpark/
>