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: 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.


  • 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