MathGroup Archive 2005

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

Search the Archive

Re: Re: multiple 3d plots


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