Re: multiple 3d plots
- To: mathgroup at smc.vnet.net
- Subject: [mg56308] Re: multiple 3d plots
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Fri, 22 Apr 2005 06:22:32 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d47tfi$573$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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];
>