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.