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[1]:=
g1 = Plot3D[(-(1/2))*(x + y) + 5, {x, 0, 10}, {y, 0, 10}, ColorFunction
-> (Hue[#1] & ), DisplayFunction -> Identity];
In[2]:=
g2 = Plot3D[Sin[x] + y - 4, {x, 0, 10}, {y, 0, 10}, ColorFunction ->
(Hue[#1 - 1] & ), DisplayFunction -> Identity];
In[3]:=
Show[g1, g2, DisplayFunction -> $DisplayFunction];
Hope this helps,
/J.M.