MathGroup Archive 2005

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

Search the Archive

Re: multiple 3d plots


>-----Original Message-----
>From: juejung [mailto:juejung at indiana.edu] 
To: mathgroup at smc.vnet.net
>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  
>solution?
>
>thanks
>best
>juergen
>
>

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
applied:

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