Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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/  


  • Prev by Date: Re: writing a function that would print the name of a
  • Next by Date: Re: Calling functions with huge arguments
  • Previous by thread: Re: writing a function that would print the name of a
  • Next by thread: Re: Filling Between Surfaces