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/