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: [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



  • Prev by Date: Re: A difficult problem
  • Next by Date: Re: generate random permutation
  • Previous by thread: Re: Plotting intersections
  • Next by thread: Re: Plotting intersections