MathGroup Archive 2007

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

Search the Archive

Re: Solving simple equations

  • To: mathgroup at
  • Subject: [mg83225] Re: Solving simple equations
  • From: Bill Rowe <readnewsciv at>
  • Date: Thu, 15 Nov 2007 05:42:43 -0500 (EST)

On 11/14/07 at 4:51 AM, hredlich at (Holger) wrote:

>I'm trying to solve these two simple equations but it doesn't work.
>meqn = { x'[t]==beta(x[t]+(Subscript[P,f]-p[t])),

>eqp = NSolve[ meqn/.{ p'[t]->0,x'[t]->0},{p[t], x[t]

>I guess I'm doing a mistake somewhere. Does anyone have idea where
>the mistake is?

You are trying to get NSolve to do something it simply isn't
intended to do. NSolve is intended to provide a numerical
solution to a set of polynomial equations. Your equations cannot
be reduced to polynomials and you've not given numeric values to
all of the coefficients.

You can solve things with Mathematica as follows:

=46irst, lets simplify things a bit by getting rid of the unneeded
variable t, i.e. (This needs to be done if you are going to get
a numeric solution)

In[5]:= meqn /. {p'[t] -> 0, x'[t] -> 0, p[t] -> p, x[t] -> x}

Out[5]= {0 == beta*(-p + x + Subscript[P, f]),
    0 == Tanh[x*Subscript[a, 2] + Subscript[a, 1]*
              (-p + x + Subscript[P, f])] - x}

Now the first equation can easily be solved for p

In[6]:= Solve[First[%], p]

Out[6]= {{p -> x + Subscript[P, f]}}

putting this solution into the second equation gives

In[7]:= Last[%%] /. First[%]

Out[7]= 0 == Tanh[x*Subscript[a, 2]] - x

Now once Subscript[a, 2] is replaced with a specific numeric
value, FindRoot can be used to find a numeric solution for x.
That can then be substituted into the solution to the first
equation to get p.
To reply via email subtract one hundred and four

  • Prev by Date: Re: Choosing preferred functions for Trig Simplification?
  • Next by Date: Re: RE: greetings and a question!
  • Previous by thread: Re: Solving simple equations
  • Next by thread: Re: Re: Solving simple equations