Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*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 2003

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

Search the Archive

Re: Plotting intersections

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40314] Re: Plotting intersections
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 31 Mar 2003 04:01:28 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <b66c4r$fod$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

funs = {3x + 5, x^2};
Plot[Evaluate[funs], {x, -10, 10}, 
  Epilog -> {PointSize[
        0.05], (Point[{#, funs[[1]] /. x -> #}] & /@ (x /. 
              Solve[Equal @@ funs, x]))}]

Regards
  Jens

AngleWyrm wrote:
> 
> Here's two plots, one linear and one not so linear ;)
> 
> Plot[ {3x+5, x^2}, {x, -10, 10} ]
> 
> And I want to know the intersection points of the two expressions.
> 
> Is there a simple way to do this, and is it extensible to three or four
> expressions?


  • Prev by Date: Help-directional fields
  • Next by Date: Opinions about the "Oneliners"
  • Previous by thread: Re: Plotting intersections
  • Next by thread: generate random permutation