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/

```

• Prev by Date: Re: Genetic Algorithms?
• Next by Date: Re: String to Number
• Previous by thread: Re: Plotting Intersecting Planes
• Next by thread: RE: Plotting Intersecting Planes