# LambertW Test 3

S = solve(x^5==5^x, x, to_poly_solve=true)
 [x=−5W(−1205–√log(5)−120i25–√+10−−−−−−−−√log(5)+120log(5))log(5),x=−5W(1205–√log(5)−120i−25–√+10−−−−−−−−−√log(5)+120log(5))log(5),x=−5W(1205–√log(5)+120i−25–√+10−−−−−−−−−√log(5)+120log(5))log(5),x=−5W(−1205–√log(5)+120i25–√+10−−−−−−−−√log(5)+120log(5))log(5),x=−5W(−15log(5))log(5)]$\left[x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(-\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}\mathrm{log}\left(5\right)-\frac{1}{20}i\phantom{\rule{thinmathspace}{0ex}}\sqrt{2\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}+10}\mathrm{log}\left(5\right)+\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)},x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}\mathrm{log}\left(5\right)-\frac{1}{20}i\phantom{\rule{thinmathspace}{0ex}}\sqrt{-2\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}+10}\mathrm{log}\left(5\right)+\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)},x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}\mathrm{log}\left(5\right)+\frac{1}{20}i\phantom{\rule{thinmathspace}{0ex}}\sqrt{-2\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}+10}\mathrm{log}\left(5\right)+\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)},x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(-\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}\mathrm{log}\left(5\right)+\frac{1}{20}i\phantom{\rule{thinmathspace}{0ex}}\sqrt{2\phantom{\rule{thinmathspace}{0ex}}\sqrt{5}+10}\mathrm{log}\left(5\right)+\frac{1}{20}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)},x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(-\frac{1}{5}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)}\right]$
S[4]
 x=−5W(−15log(5))log(5)$x=-\frac{5\phantom{\rule{thinmathspace}{0ex}}\mathrm{W}\left(-\frac{1}{5}\phantom{\rule{thinmathspace}{0ex}}\mathrm{log}\left(5\right)\right)}{\mathrm{log}\left(5\right)}$
tr_expr = S[4].rhs()
N(tr_expr, digits=50)
 1.7649219145257758827587235909114591013701032592947$1.7649219145257758827587235909114591013701032592947$

The purpose of the rest of this worksheet is, to act as a future cheat-sheet, for how to wrap Python

functions XYZ into SageMath. 'mpmath' will be used as an example.

from mpmath import mp, nstr, mpmathify, mpf
from mpmath import lambertw as alambertw, ln as aln
from sage.libs.mpmath.utils import mpmath_to_sage
mp.prec = 512; mp.pretty = True

One type of object which exists in SageMath is, a procedural function, which is

more formally called a Numerical Function. Even though they could take any set of

arguments, their future conversion into symbolic functions places special requirements.

def num_ln(self, x, **kwds): return mpmath_to_sage(aln(mpmathify(x)), 512)

The version of lambert_w which is native to Sage, takes 2 arguments by default...

def num_lamb(self, x, y, **kwds): return mpmath_to_sage(alambertw(mpmathify(y)), 512)

The following two Numerical Functions are shown, as an example of what to do, if the wrapped

package doesn't have the equivalent of the 'mpmathify()' function. It could happen, that the Symbolic Function

input, first needs to be approximated as a string.

In this case it's achieved, by not stating that a nested numerical approximation 'N()' should take place.

Because these Numerical Functions are only to be called, once a numerical value has been

requested of SageMath, the parameters of the main numerical approximation will also apply

to the String conversion within the Python Functions...

def num_ln2(self, x, **kwds): var('len') len = mp.dps + 10 convert_in = str(x) return sage_eval(nstr(aln(mpf(convert_in)), len))
def num_lamb2(self, x, y, **kwds): var('len') len = mp.dps + 10 convert_in = str(y) return sage_eval(nstr(alambertw(mpf(convert_in)), len))

The concept here is, that the numeric-functions-converted-into-symbolic-functions,

don't auto-evaluate. These will only evaluate once numerical answers are required...

Because they don't auto-evaluate, symbolic manipulations on them won't take place...

sym1 = function('sym_ln', nargs=1, evalf_func=num_ln2)
sym2 = function('sym_lamb', nargs=2, evalf_func=num_lamb2)

(Above...)

If auto-evaluation was desired, the keyword parameter identifying which Numeric Function to use, would be named

'eval_func' ...

x_expr = tr_expr.substitute_function(log, sym_ln).substitute_function(lambert_w, sym_lamb)
x_expr
 −5symlamb(0,−15symln(5))symln(5)$-\frac{5\phantom{\rule{thinmathspace}{0ex}}{\mathrm{s}\mathrm{y}\mathrm{m}}_{\mathrm{l}\mathrm{a}\mathrm{m}\mathrm{b}}\left(0,-\frac{1}{5}\phantom{\rule{thinmathspace}{0ex}}{\mathrm{s}\mathrm{y}\mathrm{m}}_{\mathrm{l}\mathrm{n}}\left(5\right)\right)}{{\mathrm{s}\mathrm{y}\mathrm{m}}_{\mathrm{l}\mathrm{n}}\left(5\right)}$
num_lamb(0, 0, 5)
 1.32672466524220022363509929775807966012879355463804747978929039302534267992053622677446991660842678923485885776465094407468570697355853541602705760597920$1.32672466524220022363509929775807966012879355463804747978929039302534267992053622677446991660842678923485885776465094407468570697355853541602705760597920$
num_ln(0, 5)
 1.60943791243410037460075933322618763952560135426851772191264789147417898770765776463013387809317961079996630302171556289972400522932467619963361661746371$1.60943791243410037460075933322618763952560135426851772191264789147417898770765776463013387809317961079996630302171556289972400522932467619963361661746371$
N(x_expr, digits=50)
 1.7649219145257758827587235909114591013701032592946$1.7649219145257758827587235909114591013701032592946$