Re: Re: multiple 3d plots
- To: mathgroup at smc.vnet.net
- Subject: [mg56331] Re: [mg56304] Re: multiple 3d plots
- From: Pratik Desai <pdesai1 at umbc.edu>
- Date: Fri, 22 Apr 2005 06:23:11 -0400 (EDT)
- References: <200504210936.FAA05085@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];
>
>
>
Try this
<<Graphics`Graphics`
DisplayTogether[Plot3D[3*x^2*y, {x, 1, 2}, {y, 1, 2}], Plot3D[3*x*(1/y)
, {x, 1, 2}, {y, 1, 2}], AmbientLight -> GrayLevel[0.12]]
You may also try this for intersection
expr1 = 3*x^2*y
expr2 = 3*x*(1/y)
Reduce[expr1 == expr2, {x, y}]
--
Pratik Desai
Graduate Student
UMBC
Department of Mechanical Engineering
- References:
- Re: multiple 3d plots
- From: juejung <juejung@indiana.edu>
- Re: multiple 3d plots