MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Plotting Intersecting Planes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg27205] Re: [mg27165] Plotting Intersecting Planes
  • From: BobHanlon at aol.com
  • Date: Fri, 9 Feb 2001 03:11:02 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`Graphics`"];

eqns = {3x-2y+4z==3, 2x-4y+3z==1, x-3y+2z==5};

funcs = Flatten[z /. (Solve[#, z]& /@ eqns)];

DisplayTogether[
    Plot3D[{funcs[[1]], RGBColor[1, 0, 0]}, {x, -20, -10}, {y, 0, 4}], 
    Plot3D[{funcs[[2]], RGBColor[0, 1, 0]}, {x, -20, -10}, {y, 0, 4}], 
    Plot3D[{funcs[[3]], RGBColor[0, 0, 1]}, {x, -20, -10}, {y, 0, 4}]];

Solve[eqns, {x, y, z}]

{{x -> -15, y -> 2, z -> 13}}


Bob Hanlon

In a message dated 2001/2/8 4:49:06 AM, heathwatts at my-deja.com writes:

>I cannot remember how to plot two or more linear equations. I'm trying
>to plot 3x-2y+4z==3, 2x-4y+3z==1, and x-3y+2z==5. I've solved the
>equations for z and tried Plot3D and ImplicitPlot3D to no avail. Please
>help.
>


  • Prev by Date: Re: Plotting Intersecting Planes
  • Next by Date: Re: clever way to do a product?
  • Previous by thread: Re: Plotting Intersecting Planes
  • Next by thread: Re: Plotting Intersecting Planes