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