﻿功能:求Heuman Lambda函数

格式:HeumanLambda(m,k)

说明:
$$
\begin{aligned}
\mathbf{HeumannLambda}(p, k) &= \dfrac{2}{\pi}\sqrt{w}\sin(p)\int_0^{\pi/2}\dfrac{1+k_c^2\tan^2(t)}{(1+w\tan^2(t))\sqrt{\cos^2(t)+k_c^2\sin(t)}}dt
\\
\\
w&=1+k^2\tan^2(p)
\end{aligned}
$$
参考://《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