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