Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Fwd: I Need to Have These Equations Solved!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76733] Fwd: I Need to Have These Equations Solved!
  • From: "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com>
  • Date: Sat, 26 May 2007 04:43:13 -0400 (EDT)
  • References: <f30vo2$mk0$1@smc.vnet.net> <465441A0.5080805@gmail.com>

[crossposted to MathGroup]

On 5/24/07, Andery <pskmaths at googlemail.com> wrote:
> Hi Jean,
>
> Thanks a lot for your help, I appreciate that for you so much. I tried the
> way you suggested but it takes a long time running without a result. But I
> will run it and leave it for a while and see.
>
> Now, I need you help to solve these three equations with repsect to r, s and
> theta.
>
> (1/4)*(-8*a*α*β*Sin[θ] - (4*l*m1*μ*(r*Cos[θ] - s*Sin[θ]))/(l^2 + r^2 + s^2 -
> 2*l*s*Cos[θ] - 2*l*r*Sin[θ])^(3/2) +
>     (4*l*m1*μ*(r*Cos[θ] - s*Sin[θ]))/(l^2 + r^2 + s^2 + 2*l*s*Cos[θ] +
> 2*l*r*Sin[θ])^(3/2) + 2*(a - b)*α^2*Sin[2*θ]) = 0
>
>     (-M)*r*α^2 + (m2*r*μ)/(r^2 + s^2)^(3/2) + (m1*μ*(r - l*Sin[θ]))/(l^2 +
> r^2 + s^2 - 2*l*s*Cos[θ] - 2*l*r*Sin[θ])^(3/2) +
>    (m1*μ*(r + l*Sin[θ]))/(l^2 + r^2 + s^2 + 2*l*s*Cos[θ] +
> 2*l*r*Sin[θ])^(3/2) = 0
>
>    μ*((m2*s)/(r^2 + s^2)^(3/2) + (m1*(s - l*Cos[θ]))/(l^2 + r^2 + s^2 -
> 2*l*s*Cos[θ] - 2*l*r*Sin[θ])^(3/2) +
>     (m1*(s + l*Cos[θ]))/(l^2 + r^2 + s^2 + 2*l*s*Cos[θ] +
> 2*l*r*Sin[θ])^(3/2)) = 0
[snip]

Hi Andery,

Again, I strongly advise you to post the corrected message and your
request to MathGroup.

Second, the symbol for equality is still a double equal sign ==. A single
equal sign = is an immediate assignment (Set).

Finally, your second set of equations is also a system of
transcendentals equations and, in general,
such equations are difficult to solve analytically. You may want to
try Reduce, but I suspect that you will be more successful
by using some numerical approaches.

So, try to solve your system numerically and if you face any
difficulties, post a message to *MathGroup* with _a example of what
command you have tried and any results and warning/error messages_ .

Regards,
Jean-Marc


  • Prev by Date: Sierpinski's thing
  • Next by Date: Re: Mathematica 6.0 easier for me ... (small review)
  • Previous by thread: Re: I Need to Have These Equations Solved!
  • Next by thread: Re: I Need to Have These Equations Solved!