MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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