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