powered by
Evaluation of the inverse of the Weierstrass elliptic function.
wpinv(w, g = NULL, omega = NULL, tau = NULL)
A complex number.
complex number
the elliptic invariants, a vector of two complex numbers; only one of g, omega and tau must be given
g
omega
tau
the half-periods, a vector of two complex numbers; only one of g, omega and tau must be given
the half-periods ratio; supplying tau is equivalent to supply omega = c(1/2, tau/2)
omega = c(1/2, tau/2)
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
Run the code above in your browser using DataLab