Re: Re: multiple 3d plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg56331] Re: [mg56304] Re: multiple 3d plots*From*: Pratik Desai <pdesai1 at umbc.edu>*Date*: Fri, 22 Apr 2005 06:23:11 -0400 (EDT)*References*: <200504210936.FAA05085@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

juejung wrote: >okay, this seems to do the trick. >but the show command doesn't use the color i specified for graph p2. any, >idea? > > >p1 = Plot3D[x^2*y, {x, 1, 2}, {y, 1, 2}]; >p2 = Plot3D[{3*x*(1/y),Hue[.4]}, {x, 1, 2}, {y, 1, 2}]; >Show[p1, p2]; > > > Try this <<Graphics`Graphics` DisplayTogether[Plot3D[3*x^2*y, {x, 1, 2}, {y, 1, 2}], Plot3D[3*x*(1/y) , {x, 1, 2}, {y, 1, 2}], AmbientLight -> GrayLevel[0.12]] You may also try this for intersection expr1 = 3*x^2*y expr2 = 3*x*(1/y) Reduce[expr1 == expr2, {x, y}] -- Pratik Desai Graduate Student UMBC Department of Mechanical Engineering

**References**:**Re: multiple 3d plots***From:*juejung <juejung@indiana.edu>