﻿功能:求Jacobi Zeta函数

格式:JacobiZeta(m,k)

说明:JacobiZeta(m,k)=k^2/3*{Sin<算式解析\sin>}(m)*{Cos<算式解析\cos>}(m)*(1-k^2*{Sin<算式解析\sin>}(m)^2)^0.5*{EllipticRJ<算式解析\EllipticRJ>}(0,1-k^2,1,1-k^2*{Sin<算式解析\sin>}(m)^2)/{EllipticK<算式解析\EllipticK>}(k)

参考://《NUMERICAL COMPUTATION OF REAL OR COMPLEX ELLIPTIC INTEGRALS》B. C. Carlson【Ames Laboratory and Department of Mathematics, Iowa State University,Ames, Iowa 50011-3020, USA】

例子:

JacobiZeta(i,i)//回车
ans = -0.631974946456435 - 1.19814023473559i