ryamadaのコンピュータ・数学メモ

Rで楕円関数

R 楕円関数

install.packages("elliptic")
library(elliptic)

Weierstrass elliptic function and its derivative, Weierstrass sigma function, and the Weierstrass zeta function

?P

- $\wp(z;\omega_1,\omega_2)=\frac{1}{z^2}+\sum_{(m,n) \ne (0,0)}\left\{\frac{1}{(z+m\omega_1+n\omega_2)^2}-\frac{1}{\left(m\omega_1+n\omega_2\right)^2}\right\}.$
Jacobian elliptic functions

?sn

?J