Re: Plotting an implicit function

• To: mathgroup at smc.vnet.net
• Subject: [mg50591] Re: Plotting an implicit function
• From: mathma18 at hotmail.com ("G.L.Narasimham")
• Date: Sat, 11 Sep 2004 06:44:54 -0400 (EDT)
• References: <ftqtducifclt@legacy>
• Sender: owner-wri-mathgroup at wolfram.com

```Plots fine, without needing to solve for r as function of M.
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))
ContourPlot[Evaluate[f[x, y]], {x, -10, 10}, {y, -1, 1}];

On 9 Sep 04 06:22:51 -0400 (EDT), David Friskin wrote:
>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: Cell write protect?
• Next by Date: How do i make the plots show all of the axes?
• Previous by thread: Re: Plotting an implicit function
• Next by thread: Re: Plotting an implicit function