0
$\begingroup$

How would we plot: $$\int - \frac {W(-\ln x)}{\ln x} dx$$ Where $W$ is the Lambert W function?

$\endgroup$

closed as off-topic by b3m2a1, eyorble, MarcoB, Johu, Henrik Schumacher Apr 16 at 18:41

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – b3m2a1, eyorble, Johu, Henrik Schumacher
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 1
    $\begingroup$ Is LambertW easily found in the docs? I couldn't find anything about it. $\endgroup$ – m_goldberg Apr 15 at 2:08
  • 2
    $\begingroup$ LambertW is an alias for ProductLog. $\endgroup$ – Somos Apr 15 at 2:22
  • 1
    $\begingroup$ I don't really know anything about this topic, but isn't this the same as PolyLog? (See the diagram when you search for ReImPlot) $\endgroup$ – Carl Lange Apr 16 at 15:49
4
$\begingroup$

Put this all here but this works:

lambs =
  Quiet@
   Table[
    {x, NIntegrate[-LambertW[-Log[y]]/Log[y], {y, .1, x},
      MaxRecursion -> 200]},
    {x, 0, 1.6, .01}
    ];

ListLinePlot[lambs]

If you take this out to x=10 and plot both the real and imaginary parts:

ListLinePlot[
 {
  Re@lambs,
  Transpose[{lambs[[All, 1]], Im@lambs[[All, 2]]}]
  }
 ]

asdasd

$\endgroup$
2
$\begingroup$
 f[x_] := NIntegrate[-LambertW[-Log[y]]/Log[y], {y, .1, x}]
 Plot[{Re[f[x]], Im[f[x]]}, {x, 0, 10}]

enter image description here

$\endgroup$

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