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