MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: Sort problem
  • Next by Date: Re: Sort problem
  • Previous by thread: Re: Re: multiple 3d plots
  • Next by thread: Re: multiple 3d plots