MathGroup Archive 2010

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

Search the Archive

Re: Help with Solve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112384] Re: Help with Solve
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 12 Sep 2010 03:11:20 -0400 (EDT)

eq1 = n*Sin[x] == (m*v^2)/r;

eq2 = n*Cos[x] == m*g;

soln = Simplify[
   Solve[{eq1, eq2}, {x, n}][[{1, -1}]]] //
  Quiet

{{n -> -((m*Sqrt[g^2*r^2 + v^4])/r), 
     x -> -ArcCos[-((g*r)/Sqrt[g^2*r^2 + v^4])]}, 
   {n -> (m*Sqrt[g^2*r^2 + v^4])/r, 
     x -> ArcCos[(g*r)/Sqrt[g^2*r^2 + v^4]]}}

Simplify[{eq1, eq2} /. soln,
 Element[{m, g, r, v}, Reals]]

{{True, True}, {True, True}}


Bob Hanlon

---- Eduardo  Cavazos <wayo.cavazos at gmail.com> wrote: 

=============
On Sep 9, 3:23 am, Eduardo  Cavazos <wayo.cava... at gmail.com> wrote:

> Here's a couple of equations:
>
> eq1 = n*Sin[x] == (m*v^2)/r;
> eq2 = n*Cos[x] == m*g;
>
> The goal is to solve for 'x'.
>
> I can do this in a roundabout way via:
>
>     Solve[eq1 /. Solve[eq2, n], x]

I should point out that the answer that I get from using Solve this
way is:

    {{x -> ArcTan[v^2/(g r)]}}

which is form the answer I'm looking for. :-) Again, I'm just
wondering if Mathematica can do the work for me, instead of having to
manually eliminate 'n' in a separate step.

Sjoerd and Bob recommended using Reduce. Thanks for the tip! I tried
to use Reduce but the results it produced were not in the above form.

Ed



  • Prev by Date: Re: Help with Solve
  • Next by Date: Re: Help with Solve
  • Previous by thread: Re: Help with Solve
  • Next by thread: Re: Help with Solve