MathGroup Archive 2012

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

Search the Archive

Re: How to access Solve solutions of eq.system as functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126069] Re: How to access Solve solutions of eq.system as functions
  • From: Jonas Jurkevičius <getjonas at gmail.com>
  • Date: Sat, 14 Apr 2012 03:12:54 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201204130846.EAA19184@smc.vnet.net>

Thanks a lot

On Fri, Apr 13, 2012 at 3:30 PM, Bob Hanlon <hanlonr357 at gmail.com> wrote:

> Clear[n, ne];
>
> sol = With[
>    {tnr = 1, te = 1, b = 1, d = 1, f = 1, nemax = 1},
>    Solve[{
>      g - n/tnr - b n^2 - f n^2 (1 - ne/nemax) + d ne == 0,
>      f n^2 (1 - ne/nemax) - ne/te - d ne == 0},
>     {n, ne}]] // Simplify;
>
> n[g_] = n /. sol;
>
> ne[g_] = ne /. sol;
>
> Plot[Evaluate[n[g]], {g, -0.5, .5}]
>
> Plot[Evaluate[ne[g]], {g, -0.5, 0.5}]
>
>
> Bob Hanlon
>
>
> On Fri, Apr 13, 2012 at 4:46 AM, getjonas <getjonas at gmail.com> wrote:
> > i am solving a two equation system with two variables (n, ne) and one
> > parameter (g):
> >
> > Solve[{g - n/tnr - b n^2 - f n^2 (1 - ne / nemax) + d ne == 0,
> >
> >  f n^2 (1 - ne/nemax) - ne/te - d ne == 0}, {n, ne}]
> >
> > Here tnr, te, b, d and f are all previously defined numbers.
> >
> > i get four pairs of analytical solutions, as expected.
> >
> > The question is, how to access these solutions (n, ne) as functions of
> > parameter g? I.e., how to plot n[g], ne[g]?
> >
>


  • Prev by Date: Re: How to access Solve solutions of eq.system as functions
  • Next by Date: Re: Frameless Window in Manipulate
  • Previous by thread: Re: How to access Solve solutions of eq.system as functions
  • Next by thread: GraphUnion that keeps Properties intact?