add Lambert's Omega constant

Author: alyst

src/IrrationalConstants.jl

@@ -27,8 +27,11 @@ export
     logπ,       # log(π)
     log2π,      # log(2π)
     log4π,      # log(4π)
-    invℯ        # 1 / ℯ
+    invℯ,       # 1 / ℯ
+
+    LambertW_Ω  # Ω exp(Ω) = 1
 
 include("stats.jl")
+include("lambertw_omega.jl")
 
 end # module

src/lambertw_omega.jl

@@ -0,0 +1,32 @@
+# lazy-initialized LambertW Omega at 256-bit precision
+const LambertW_Omega_BigFloat256 = Ref{BigFloat}()
+
+# compute BigFloat Omega constant at arbitrary precision
+function compute_LambertW_Omega()
+    # initialize Omega_BigFloat256
+    isassigned(LambertW_Omega_BigFloat256) ||
+        (LambertW_Omega_BigFloat256[] = BigFloat("0.5671432904097838729999686622103555497538157871865125081351310792230457930866845666932194"))
+    o = LambertW_Omega_BigFloat256[] # initial value
+    precision(BigFloat) <= 256 && return o
+    # iteratively improve the precision of the constant
+    myeps = eps(BigFloat)
+    for _ in 1:100
+        o_ = (1 + o) / (1 + exp(o))
+        abs(o - o_) <= myeps && break
+        o = o_
+    end
+    return o
+end
+
+@irrational LambertW_Ω 0.567143290409783872999968662210355 compute_LambertW_Omega()
+
+"""
+Lambert's Omega (Ω) constant, such that Ω exp(Ω) = 1.
+
+*W(Ω) = 1*, where *W(t) = t exp(t)* is the *Lambert's W function*.
+
+# See
+https://en.wikipedia.org/wiki/Omega_constant
+"""
+LambertW_Ω
+

test/runtests.jl

@@ -43,3 +43,11 @@ end
 @testset "1/e" begin
   @test isapprox(invℯ, exp(-1))
 end
+
+@testset "LambertW_Omega" begin
+  @test isapprox(LambertW_Ω * exp(LambertW_Ω), 1)
+  setprecision(BigFloat, 2048) do
+    o = big(LambertW_Ω)
+    @test isapprox(o * exp(o), 1, atol=eps(BigFloat))
+  end
+end