Filling Between Surfaces

*To*: mathgroup at smc.vnet.net*Subject*: [mg97680] Filling Between Surfaces*From*: "David Park" <djmpark at comcast.net>*Date*: Wed, 18 Mar 2009 04:57:06 -0500 (EST)

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/