       Re: ImplicitPlot in 3D of several equations

• To: mathgroup at smc.vnet.net
• Subject: [mg60926] Re: ImplicitPlot in 3D of several equations
• From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
• Date: Tue, 4 Oct 2005 01:24:54 -0400 (EDT)
• Organization: The Open University, Milton Keynes, U.K.
• References: <dhqpq3\$mo\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

lenka gogova wrote:
> Does somebodyknow how to Plot in 3 dimensions more than one function?
> I found on the net a package  ImplicitPlot3D but it is restricted to one function.
>
> I found that ImplicitPlot is able to plot several "equations", but everything in R^2.
>
> I want to plot equations like  {x+2 y+3z ==10 ,  x+y==5 , y+z==4}..
>
> Thanks
>
> Lenka
>
> PS. I am using Mathematica 5.2 in Windows XP
>
>
>
Hi Lenka,

You can try combining several plots in a *Show* command, as in the
following lines

In:=
g1 = Plot3D[(-(1/2))*(x + y) + 5, {x, 0, 10}, {y, 0, 10}, ColorFunction
-> (Hue[#1] & ), DisplayFunction -> Identity];

In:=
g2 = Plot3D[Sin[x] + y - 4, {x, 0, 10}, {y, 0, 10}, ColorFunction ->
(Hue[#1 - 1] & ), DisplayFunction -> Identity];

In:=
Show[g1, g2, DisplayFunction -> \$DisplayFunction];

Hope this helps,
/J.M.

• Prev by Date: Re: Help with output form?
• Next by Date: Re: Finding length in recursive definition?
• Previous by thread: ImplicitPlot in 3D of several equations
• Next by thread: BinCounts