Re: multiple 3d plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg56314] Re: multiple 3d plots*From*: Peter Pein <petsie at arcor.de>*Date*: Fri, 22 Apr 2005 06:22:37 -0400 (EDT)*References*: <d47tfi$573$1@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]; > I'm afraid you'll have to set the shading in _both_ plots: Show[Block[{$DisplayFunction = #1 & }, { Plot3D[{x^2*y, Hue[0.6, 0.5, 1]}, {x, 1, 2}, {y, 1, 2}], Plot3D[{(3*x)/y, Hue[0.4]}, {x, 1, 2}, {y, 1, 2}]}]] -- Peter Pein Berlin