Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Plotting Intersecting Planes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg27193] Re: Plotting Intersecting Planes
  • From: "Paul Lutus" <nospam at nosite.com>
  • Date: Fri, 9 Feb 2001 03:10:38 -0500 (EST)
  • References: <95tqv7$mb5@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

<heathwatts at my-deja.com> wrote in message news:95tqv7$mb5 at smc.vnet.net...
> 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.

data1 = {3x-2y+4z==3, 2x-4y+3z==1, x-3y+2z==5}

data2 = Map[Solve[#,z][[1,1,2]]&,data]

Do[Plot3D[data2[[v]],{x,-5,5},{y,-5,5}],{v,1,3}]

--
Paul Lutus
www.arachnoid.com





  • Prev by Date: Re: clever way to do a product?
  • Next by Date: Using Unusual Characters with Do
  • Previous by thread: Plotting Intersecting Planes
  • Next by thread: Re: Plotting Intersecting Planes