Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Re: Filling Between Surfaces

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97759] Re: [mg97722] Re: Filling Between Surfaces
  • From: "David Park" <djmpark at comcast.net>
  • Date: Fri, 20 Mar 2009 02:43:20 -0500 (EST)
  • References: <gpqgh6$616$1@smc.vnet.net> <24415140.1237449955897.JavaMail.root@m02>

Ok, maybe RegionPlot is the way, but something more like:

RegionPlot3D[
 z > Sin[Pi*x*y] && z < Cos[Pi*x*y], {x, -1, 1}, {y, -1, 1}, {z, -1, 
  1},
 Mesh -> None, PlotStyle -> Opacity[.5]]


David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/  


From: Jens-Peer Kuska [mailto: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/  
> 




  • Prev by Date: Re: Re: Filling Between Surfaces
  • Next by Date: Re: Compatibility issue in Mathematica 7
  • Previous by thread: Re: Re: Filling Between Surfaces
  • Next by thread: Playing with numerically integrated fields?