Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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





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