wpinv function

Inverse of Weierstrass elliptic function

Evaluation of the inverse of the Weierstrass elliptic function.

wpinv(w, g = NULL, omega = NULL, tau = NULL)

Arguments

• w: complex number
• g: the elliptic invariants, a vector of two complex numbers; only one of g, omega and tau must be given
• omega: the half-periods, a vector of two complex numbers; only one of g, omega and tau must be given
• tau: the half-periods ratio; supplying tau is equivalent to supply omega = c(1/2, tau/2)

Returns

A complex number.

Examples

library(jacobi)
omega <- c(1.4 - 1i, 1.6 + 0.5i)
w <- 1 + 1i
z <- wpinv(w, omega = omega)
wp(z, omega = omega) # should be w