MathGroup Archive 2004

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

Search the Archive

RE: Plotting an implicit function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg50584] RE: [mg50559] Plotting an implicit function
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sat, 11 Sep 2004 06:44:35 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

David,

Use r_ and M_ in the definition, and I prefer a definition as a function and
not an equation so we can test evaluate or Plot the function for various
cases.

f[r_, M_] := 1 + (-1 - 0.03*M^2 + 1.2*M)*r -
   ((0.05*E^(r*M))/r - 0.05/r + E^(r*M)*(1 - 0.05*M))

The following seems to give the plot that you are looking for. I fixed the
aspect ratio to get a better representation and also extended the M domain
to obtain a better picture of the function.

Needs["Graphics`ImplicitPlot`"]

ImplicitPlot[f[r, M] == 0, {M, 0, 30}, {r, 0.0001, 0.03},
    AspectRatio -> 1,
    Frame -> True,
    FrameLabel -> {M, r}];


David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: David Friskin [mailto:david.friskin at upe.ac.za]
To: mathgroup at smc.vnet.net

I have the following implicit function:
f[r, M]=1 + (-1 - 0.03*M^2 +
    1.2*M)*r - (0.05*E^(r*M)/r - 0.05/r + E^(r*M)*(1 - 0.05*M))==0

where r is a function of M i.e. r(M).

I would like to plot r(M) vs M, for {M,0,20}.

I tried using
 ImplicitPlot[{f[r,M] == 0},{M,0,20}], but Solve is having problems
finding the roots to my function.

Could someone help me with the code to do this, perhaps using FindRoot
somehow?

Thanks
David

P.S. r > 0




  • Prev by Date: Re: Plotting an implicit function
  • Next by Date: Re: Re: How to solve a simple Trig cofunction?
  • Previous by thread: Re: Plotting an implicit function
  • Next by thread: Table of Contents in Publicon?