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?