# How can I get the approximate analytical solution to this simple algebra equation?

Is there a way to get the analytical form to the root of this equation

2 A e (-ArcTanh[smax/s0] + ArcTanh[(smax Cos[w \[Zeta]])/s0]) == F0

\[Zeta] is the variable to be solved and is bounded by (1/2 Pi / w, Pi / w)

Thanks~

-
Well ... Solve[2 A e (-ArcTanh[smax/s0] + ArcTanh[(smax Cos[w x])/s0]) == F0, x] solves it. What else do you need? –  belisarius Feb 10 '13 at 5:16

Your form of equation is overpopulated with redundant constants slowing down computation. Rewrite and solve to get a simple concise form:

Solve[Pi/2 < x < Pi && ArcTanh[b Cos[x]] == a, x, Reals]


Get back to your original form:

% /. {a -> F0/(2 A e) + ArcTanh[smax/s0], b -> smax/s0, x -> w \[Zeta]}

-
thanks, Vitaliy Kaurov and Nasser. :) –  pengfei_guo Feb 10 '13 at 10:14

@belisarius advice is good. But for someone who is new to Mathematica, then they should take advantage of the new suggestion bar in V9.

These are the steps to apply if you do not know the commands to use. By just typing the same line you showed, you will obtain the suggestion bar. By clicking on more you will see the command to solve for $\zeta$ there. Clicking on it will generate the result. The following diagram illustrates these steps taking full advantage of the new and powerful suggestion bar in V9.

In addition, Mathematica displays the command used and the solution automatically

-