Re: Plotting Intersecting Planes

*To*: mathgroup at smc.vnet.net*Subject*: [mg27194] Re: Plotting Intersecting Planes*From*: Brian Higgins <bghiggins at ucdavis.edu>*Date*: Fri, 9 Feb 2001 03:10:39 -0500 (EST)*References*: <95tqv7$mb5@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Heath , Here is one way: First get z=f(x,y) for all your planes sol = Flatten[ Map[z /. Solve[#, z] &, {3x - 2y + 4z - 3 == 0, 2x - 4y + 3z == 1, x - 3y + 2z == 5}]] Then generate a plot for each plane , supressing the output with the DisplayFunction option plts = Table[ Plot3D[{sol[[i]], RGBColor[1/(2i), 1/i, 0]}, {x, -3, 4}, {y, -3, 3}, DisplayFunction -> Identity], {i, 1, 3}] Then use Show to display the the plots together Show[plts, DisplayFunction -> $DisplayFunction, ViewPoint -> {4.011, 1.453, 2.415}] Cheers, Brian In article <95tqv7$mb5 at smc.vnet.net>, heathwatts at my-deja.com wrote: > Hi, > 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. > Thanks, > Heath > > Sent via Deja.com > http://www.deja.com/ > > Sent via Deja.com http://www.deja.com/