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

Re: multiple 3d plots

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

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