Re: Plotting intersections
- To: mathgroup at smc.vnet.net
- Subject: [mg40306] Re: [mg40285] Plotting intersections
- From: Dr Bob <majort at cox-internet.com>
- Date: Sun, 30 Mar 2003 20:14:53 -0500 (EST)
- References: <200303300907.EAA16144@smc.vnet.net>
- Reply-to: majort at cox-internet.com
- Sender: owner-wri-mathgroup at wolfram.com
<< Graphics`Graphics`
f = 3x + 5;
g = x^2;
Block[{solns = Solve[f == g, x]},
DisplayTogether[Plot[{f, g}, {x, -10, 10}], Graphics[{
AbsolutePointSize[6], {Point[{x, f}], Text[x, {x, f}, {0, -1}]} /.
solns}],
ImageSize -> 400];
]
Bobby
On Sun, 30 Mar 2003 04:07:47 -0500 (EST), AngleWyrm
<no_spam_anglewyrm at hotmail.com> 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?
>
>
>
>
--
majort at cox-internet.com
Bobby R. Treat
- References:
- Plotting intersections
- From: "AngleWyrm" <no_spam_anglewyrm@hotmail.com>
- Plotting intersections