powered by
gsl_sf_lambert.h
lambert_W0(x, give=FALSE, strict=TRUE) lambert_Wm1(x, give=FALSE,strict=TRUE)
TRUE
NaN
a <- runif(6) L <- lambert_W0(a) print(L*exp(L) - a)
Run the code above in your browser using DataLab