功能:求Heuman Lambda函数

格式:HeumanLambda(m,k)

说明:HeumanLambda(m,k)=2*(1-k^2)*{Sin<算式解析\sin>}(m)*Cos(m)/(π*（1-(1-k^2)*{Sin<算式解析\sin>}(m)^2）0.5)*({EllipticRF<算式解析\EllipticRF>}(0,1-k^2,1)+k^2/(3*(1-(1-k^2)*{Sin<算式解析\sin>}(m)^2))*{EllipticRJ<算式解析\EllipticRJ>}(0,1-k^2,1,1-k^2/(1-(1-k^2)*{Sin<算式解析\sin>}(m)^2))

参考://《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】

例子:

HeumanLambda(i,i)//回车
ans = 1.40130554886625i