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: multiple 3d plots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg56324] Re: [mg56303] multiple 3d plots
  • From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
  • Date: Fri, 22 Apr 2005 06:22:50 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

>-----Original Message-----
>From: juejung [mailto:juejung at indiana.edu] 
To: mathgroup at smc.vnet.net
>Sent: Thursday, April 21, 2005 11:36 AM
>Subject: [mg56324] [mg56303] multiple 3d plots
>
>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
>
>

As your surfaces are identical, I'll make up a different example. 

If the purpose is just to see the intersection, full coloring may be
applied:

Plot3D[{3*x*y^3, Hue[0]}, {x, 1, 2}, {y, 1, 2}];
Plot3D[{2*x^3*y^2, Hue[2/3]}, {x, 1, 2}, {y, 1, 2}];


Alternatively use constant ColorFunctions. You'll see the intersection
when displaying them together:

Show[{%%, %}]

--
Hartmut Wolf


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