Re: multiple 3d plots
- To: mathgroup at smc.vnet.net
- Subject: [mg56312] Re: multiple 3d plots
- From: dh <dh at metrohm.ch>
- Date: Fri, 22 Apr 2005 06:22:36 -0400 (EDT)
- References: <d47te4$56k$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Jürgen,
p1 = Plot3D[{x^2*y, Hue[0.5]}, {x, 1, 2}, {y, 1, 2}];
p2 = Plot3D[{3*x*(1/y), Hue[0.8]}, {x, 1, 2}, {y, 1, 2}];
Show[p1, p2];
SIncerely,Daniel
juejung wrote:
> how can i plot the following 2 3D-graphs into one graph so that i can see
> where they intersect.
>
> Plot3D[3*x^2*y , {x, 1, 2}, {y, 1, 2}];
> Plot3D[3*x^2*y , {x, 1, 2}, {y, 1, 2}];
>
> Plot3D[{3*x^2*y,3*x^2*y},{x,1,2},{y,1,2}] would be nice but doesn't work,
> since the second argument if for coloring the first. Is there an easy
> solution?
>
> thanks
> best
> juergen
>