|
楼主 |
青青子衿
发表于 2024-8-31 08:31
本帖最后由 青青子衿 于 2025-1-7 13:11 编辑 青青子衿 发表于 2024-1-20 13:12
\begin{align*}
&\int_{0}^{x}\frac{\mathrm{d}t}{\sqrt{(1-t^{2})(1-k^{2}t^{2})}}=\frac{1}{(1+\sqrt{k}\>\!)^{2}}
\int_{0}^{\frac{(1+\sqrt{k}\>\!)^{2}x(1+k\ x^{2})}{1+2(1+\sqrt{k}+k)\sqrt{k}x^{2}+k^{2}x^{4}}}\frac{\mathrm{d}t}{\sqrt{(1-t^{2})(1-{\scriptsize\frac{8(1+k)\sqrt{k}}{(1+\sqrt{k}\>\!)^{4}}}t^{2})}}
\end{align*}
【虚模】
\begin{gather*}
\int_{0}^{x}\frac{{\mathrm{d}}t}{\sqrt{\left(1-t^{2}\right)\left(1-m^{2}t^{2}\right)}}\\
\\
=\int_{0}^{\frac{\sqrt{1-m^{2}}x}{\sqrt{1-m^{2}x^{2}}}}\frac{\frac{1}{\sqrt{1-m^{2}}}}{\sqrt{(1-t^{2})(1-(\raise{1pt}{\scriptsize\frac{m}{i\sqrt{1-m^2}}}t)^{2})}}{\mathrm{d}}t\\
=\int_{0}^{\frac{(m-i\sqrt{1-m^{2}})x\sqrt{1-m^{2}x^{2}}}{\sqrt{1-x^{2}}}}\frac{\frac{i}{\sqrt{1-m^{2}}+im}}{\sqrt{(1-t^{2})(1-(\raise{0.6pt}{\scriptsize\frac{\sqrt{1-m^{2}}-im}{\sqrt{1-m^{2}}+im}}t)^{2})}}{\mathrm{d}}t\\
=\int_{0}^{\frac{(\sqrt{1-m^{2}}+im)x\sqrt{1-m^{2}x^{2}}}{1+({\scriptsize\frac{\sqrt{2m(1-m)}+i\sqrt{2m(m+1)}}{2}}x)^{2}}}\frac{\frac{1}{\sqrt{1-m^{2}}+im}}{\sqrt{(1-t^{2})(1-(\raise{0.6pt}{\scriptsize\frac{2\sqrt{im\sqrt{1-m^{2}}}}{\sqrt{1-m^{2}}+im}}t)^{2})}}{\mathrm{d}}t
\end{gather*}
- (I*EllipticK[
- 1 - ((2 Sqrt[I (Sqrt[2] - 1) Sqrt[1 - (Sqrt[2] - 1)^2]])/(
- Sqrt[1 - (Sqrt[2] - 1)^2] + I (Sqrt[2] - 1)))^2])/
- EllipticK[((2 Sqrt[I (Sqrt[2] - 1) Sqrt[1 - (Sqrt[2] - 1)^2]])/(
- Sqrt[1 - (Sqrt[2] - 1)^2] + I (Sqrt[2] - 1)))^2] // N
- (1 + Sqrt[2] I)/2 // N
- (I*EllipticK[
- 1 - ((Sqrt[1 - (Sqrt[2] - 1)^2] - I (Sqrt[2] - 1))/(
- Sqrt[1 - (Sqrt[2] - 1)^2] + I (Sqrt[2] - 1)))^2])/
- EllipticK[((Sqrt[1 - (Sqrt[2] - 1)^2] - I (Sqrt[2] - 1))/(
- Sqrt[1 - (Sqrt[2] - 1)^2] + I (Sqrt[2] - 1)))^2] // N
- (-2 + 2 Sqrt[2] I)/3 // N
复制代码
\begin{gather*}
K(\>{\scriptsize(1+i)(2(\sqrt{2}-1)-i\ (2-\sqrt{2})\sqrt{\tiny\sqrt{2}-1})(2(\sqrt{2}-1))^{1/4}}\>)\\
=({\scriptsize\sqrt{2}}+i({\scriptsize\sqrt{2}-1})\sqrt{\tiny1+\sqrt{2}}\,)\frac{\Gamma\left(\frac{1}{8}\right)\Gamma\left(\frac{3}{8}\right)}{2^{13/4}\sqrt{\pi}}
\end{gather*}
- I EllipticK[
- 1 - ((1 + I) (2 (Sqrt[2] - 1) -
- I (2 - Sqrt[2]) Sqrt[Sqrt[2] - 1]) (2 Sqrt[2] - 2)^(1/4))^2]/
- EllipticK[((1 + I) (2 (Sqrt[2] - 1) -
- I (2 - Sqrt[2]) Sqrt[Sqrt[2] - 1]) (2 Sqrt[2] - 2)^(
- 1/4))^2] // N
- (1 + I Sqrt[2])/2 // N
复制代码
\begin{gather*}
\int_{0}^{x}\frac{\mathrm{d}t}{\sqrt{\left(1-t^{2}\right)\left(1-k^{2}t^{2}\right)}}=\frac{1}{1+2\sqrt{\scriptsize{k\sqrt{\left.k\middle/l\right.\,}\,}}}\int_{0}^{y_{3,1}}\frac{\mathrm{d}t}{\sqrt{\left(1-t^{2}\right)\left(1-l^{2}t^{2}\right)}}\\
\\
y_{3,1}=\frac{x\left(1+2\sqrt{\scriptsize{k\sqrt{\left.k\middle/l\right.\,}\,}}+{\small{k\sqrt{\left.k\middle/l\right.\,}\,}}x^{2}\right)}{1+2\sqrt{\scriptsize{k\sqrt{\left.k\middle/l\right.\,}\,}}x^{2}+{\small{k\sqrt{\left.k\middle/l\right.\,}\,}}x^{2}}\\
\\
\\
1+2i\sqrt{2}=i\frac{K\big(\sqrt{1-k^{2}}\,\big)}{K(k)}=3i\frac{K\big(\sqrt{1-l^{2}}\,\big)}{K(l)}=3\cdot\tfrac{1+2i\sqrt{2}}{3}\\
\\
\left\{\begin{split}
k=\left(\tfrac{s^{3}(2+s)}{1+2s}\right)^{\frac{1}{2}}\\
l=\left(\tfrac{s(2+s)^{3}}{(1+2s)^{3}}\right)^{\frac{1}{2}}
\end{split}\right.\\
\\
s=\sqrt{\scriptsize{k\sqrt{\left.k\middle/l\right.\,}\,}}
\end{gather*}
\begin{gather*}
K\left(\tau=\tfrac{1+2i\sqrt{2}}{3}\right)\\
=
K\left(k=\tfrac{(1+i)(\sqrt{2}-1)(2+\sqrt{2}-i\sqrt{\scriptsize1+\sqrt{2}}\,)}{4}(2+2\sqrt{2})^{1/4}\right)\\
=(1+i)(\sqrt{2}-i)(2+\sqrt{2}-2\sqrt{\scriptsize1+\sqrt{2}})(2+2\sqrt{2})^{1/4}K\left(k=5+4\sqrt{2}-2(2+\sqrt{2})\sqrt{\scriptsize1+\sqrt{2}}\right)\\
=(1+i)(\sqrt{2}-i)(2+\sqrt{2}-2\sqrt{\scriptsize1+\sqrt{2}})(2+2\sqrt{2})^{1/4}\frac{(\sqrt{2}+\sqrt{\scriptsize1+\sqrt{2}})\Gamma\left(\frac{1}{8}\right)\Gamma\left(\frac{3}{8}\right)}{2^{17/4}\sqrt{\pi}}\\
=\frac{(1+i)(\sqrt{2}-i)(\sqrt{2}-1)(2+2\sqrt{2})^{3/4}\Gamma\left(\frac{1}{8}\right)\Gamma\left(\frac{3}{8}\right)}{2^{17/4}\sqrt{\pi}}
\end{gather*}
- N[EllipticK[ModularLambda[1 + I Sqrt[17]]], 20]
- N[Sqrt[1 - ModularLambda[I Sqrt[17]]]
- EllipticK[ModularLambda[I Sqrt[17]]], 20]
- N[EllipticK[ModularLambda[(1 + I Sqrt[17])/3]], 20]
- N[(1 + 2 Sqrt[
- Sqrt[ModularLambda[1 + I Sqrt[17]]] Sqrt[Sqrt[
- ModularLambda[1 + I Sqrt[17]]]/Sqrt[
- ModularLambda[(1 + I Sqrt[17])/3]]]]) EllipticK[
- ModularLambda[1 + I Sqrt[17]]], 20]
复制代码 |
|