C13. Jacobi elliptic functions

Functions
Function	WJcd (U As Double, K As Double)
	Jacobi elliptic function cd(u, k)
Function	WJcn (U As Double, K As Double)
	Jacobi elliptic function cn(u, k)
Function	WJcs (U As Double, K As Double)
	Jacobi elliptic function cs(u, k)
Function	WJdc (U As Double, K As Double)
	Jacobi elliptic function dc(u, k)
Function	WJdn (U As Double, K As Double)
	Jacobi elliptic function dn(u, k)
Function	WJds (U As Double, K As Double)
	Jacobi elliptic function ds(u, k)
Function	WJnc (U As Double, K As Double)
	Jacobi elliptic function nc(u, k)
Function	WJnd (U As Double, K As Double)
	Jacobi elliptic function nd(u, k)
Function	WJsc (U As Double, K As Double)
	Jacobi elliptic function sc(u, k)
Function	WJsd (U As Double, K As Double)
	Jacobi elliptic function sd(u, k)
Function	WJsn (U As Double, K As Double)
	Jacobi elliptic function sn(u, k)
Function	WJtheta1 (X As Double, Q As Double)
	Jacobi theta function θ1(x, q)
Function	WJtheta1t (X As Double, Q As Double)
	Jacobi theta function θ1(x, τ)
Function	WJtheta2 (X As Double, Q As Double)
	Jacobi theta function θ2(x, q)
Function	WJtheta2t (X As Double, Q As Double)
	Jacobi theta function θ2(x, τ)
Function	WJtheta3 (X As Double, Q As Double)
	Jacobi theta function θ3(x, q)
Function	WJtheta3m1 (X As Double, Q As Double)
	Jacobi theta function θ3(x, q) - 1
Function	WJtheta3m1t (X As Double, Q As Double)
	Jacobi theta function θ3(x, τ) - 1
Function	WJtheta3t (X As Double, Q As Double)
	Jacobi theta function θ3(x, τ)
Function	WJtheta4 (X As Double, Q As Double)
	Jacobi theta function θ4(x, q)
Function	WJtheta4m1 (X As Double, Q As Double)
	Jacobi theta function θ4(x, q) - 1
Function	WJtheta4m1t (X As Double, Q As Double)
	Jacobi theta function θ4(x, τ) - 1
Function	WJtheta4t (X As Double, Q As Double)
	Jacobi theta function θ4(x, τ)

Detailed Description

This is the group of C13. Jacobi elliptic functions.