MathGroup Archive 2005

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

Search the Archive

Re: multiple 3d plots


Hi,

Block[{$DisplayFunction = Identity},
  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, Graphics3D[p2] /. h_Hue :> 
SurfaceColor[h]];


Regards

  Jens

"juejung" <juejung at indiana.edu> schrieb im 
Newsbeitrag news:d47tfi$573$1 at smc.vnet.net...
> 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];
> 



  • Prev by Date: Adding new rules to Simplify
  • Next by Date: Re: Sort problem
  • Previous by thread: Re: multiple 3d plots
  • Next by thread: Re: multiple 3d plots