Re: Filling Between Surfaces

*To*: mathgroup at smc.vnet.net*Subject*: [mg97700] Re: Filling Between Surfaces*From*: dh <dh at metrohm.com>*Date*: Thu, 19 Mar 2009 02:10:19 -0500 (EST)*References*: <gpqgh6$616$1@smc.vnet.net>

Hi David, the following will do it: ListPointPlot3D[{data1, data2}, Filling -> 2, FillingStyle -> Directive[Opacity[.3], Gray]] Daniel 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/ >