Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: multiple 3d plots

  • To: mathgroup at
  • Subject: [mg56324] Re: [mg56303] multiple 3d plots
  • From: "Wolf, Hartmut" <Hartmut.Wolf at>
  • Date: Fri, 22 Apr 2005 06:22:50 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

>-----Original Message-----
>From: juejung [mailto:juejung at] 
To: mathgroup at
>Sent: Thursday, April 21, 2005 11:36 AM
>Subject: [mg56324] [mg56303] multiple 3d plots
>how can i plot the following 2 3D-graphs into one graph so 
>that i can see  
>where they intersect.
>Plot3D[3*x^2*y , {x, 1, 2}, {y, 1, 2}];
>Plot3D[3*x^2*y , {x, 1, 2}, {y, 1, 2}];
>Plot3D[{3*x^2*y,3*x^2*y},{x,1,2},{y,1,2}] would be nice but 
>doesn't work,  
>since the second argument if for coloring the first. Is there an easy  

As your surfaces are identical, I'll make up a different example. 

If the purpose is just to see the intersection, full coloring may be

Plot3D[{3*x*y^3, Hue[0]}, {x, 1, 2}, {y, 1, 2}];
Plot3D[{2*x^3*y^2, Hue[2/3]}, {x, 1, 2}, {y, 1, 2}];

Alternatively use constant ColorFunctions. You'll see the intersection
when displaying them together:

Show[{%%, %}]

Hartmut Wolf

  • Prev by Date: Re: Sort problem
  • Next by Date: findroot problem
  • Previous by thread: Re: multiple 3d plots
  • Next by thread: Re: multiple 3d plots