3
$\begingroup$

Any suggestions to obtain $x$ in terms of $n$ in this equation. Again Mathematica gives: "This system cannot be solved with the methods available to Solve."

$\coth (\pi x) \coth (n x)-\frac{x^4-2 x^2+5}{4 \left(x^2-1\right)}=0$

Coth[n x] Coth[\[Pi] x] - (5 - 2 x^2 + x^4)/(4 (-1 + x^2)) == 0

Any comment to solve this equation is welcomed.

$\endgroup$

closed as off-topic by MarcoB, m_goldberg, Michael E2, Alex Trounev, yarchik Oct 22 at 7:09

  • The question does not concern the technical computing software Mathematica by Wolfram Research. Please see the help center to find out about the topics that can be asked here.
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 2
    $\begingroup$ ContourPlot? Then you can use FindRoot with initial guess from that curve. $\endgroup$ – Alx Oct 11 at 14:30
  • $\begingroup$ I need to obtain an explicit expression for $x$ in terms of $n$. $\endgroup$ – Baran Oct 11 at 15:41
  • 1
    $\begingroup$ Are you certain it's solvable? A lot of transcendental equations can't be solved analytically so you have to resort to numerical methods. $\endgroup$ – MassDefect Oct 11 at 16:26
  • $\begingroup$ @Alx would you explain more? $\endgroup$ – Baran Oct 11 at 22:07
  • 2
    $\begingroup$ I'm voting to close this question as off-topic because the OP is asking for an analytical solution for a problem where it does not exist. $\endgroup$ – m_goldberg Oct 13 at 17:30
2
$\begingroup$

It should be noted that the type of numeric search, based on ContourPlot, that others mention in the comments, has been automated by Wagner, in his book, Mathematica in Action. J.M. gives a version of Wagner's function in this answer.

Using his function, we get the following:

With[{n = 1},
 FindAllCrossings[Coth[n x] Coth[π x] - (5 - 2 x^2 + x^4)/(4 (-1 + x^2)), {x, -5, 5}, WorkingPrecision -> 20]
 ]

{-1.9201894111730777583, -1.5082193798592498308}

Let's check to make sure that the solution are ok:

With[{n = 1},
 Coth[n x] Coth[π x] - (5 - 2 x^2 + x^4)/(4 (-1 + x^2)) /. 
  x -> -1.92018941117307775830055191944881406955`20.
 ]

0.*10^-20

With[{n = 1},
 Coth[n x] Coth[\[Pi] x] - (5 - 2 x^2 + x^4)/(4 (-1 + x^2)) /. 
  x -> -1.50821937985924983076925593990549242151`20.
 ]

0.*10^-19

Yup, it seems to be working.

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.