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