       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}, {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