|
楼主 |
青青子衿
发表于 2024-9-10 09:13
本帖最后由 青青子衿 于 2024-9-19 12:22 编辑 青青子衿 发表于 2023-8-23 13:44
\begin{align*}
&\qquad\alpha_1,\alpha_3\in\mathbb{C},\,\alpha_2\in\mathbb{R}\\
\sigma_1&=\alpha_1+\alpha_2+\alpha_3=0\\
\wp_{\rm{C}}(u)&=4\wp\left(u;{\small{-}}\tfrac{\alpha_1\alpha_2+\alpha_1\alpha_3+\alpha_2\alpha_3}{4},\tfrac{\alpha_1\alpha_2\alpha_3}{16}\right)\\
\\
u&=\int_{\wp_{\rm{C}}(u)}^{+\infty}\frac{\mathrm{d}t}{\sqrt{(t-\alpha_1)(t-\alpha_2)(t-\alpha_3)}}\\
\end{align*}
\begin{align*}
\left(\frac{\partial\left(4 \wp \left(u;\raise{0.5pt}\scriptsize{-\tfrac{A}{4},-\tfrac{B}{4^2}}\right)\right)}{\partial u}\right)^2&=\big(4 \wp \left(u;\raise{0.5pt}\scriptsize{-\tfrac{A}{4},-\tfrac{B}{4^2}}\right)\big)^3+A\cdot\big(4 \wp \left(u;\raise{0.5pt}\scriptsize{-\tfrac{A}{4},-\tfrac{B}{4^2}}\right)\big)+B
\\
\left(\frac{\partial\left(\wp (u;g_2,g_3)\right)}{\partial u}\right)^2&=4\cdot\wp (u;g_2,g_3)^3-g_2\cdot\wp (u;g_2,g_3)-g_3
\end{align*}
- D[WeierstrassP[u, {-(A/4), -(B/4^2)}], u]^2 /. {A -> 322,
- B -> 1453} /. u -> 0.4 // N
- 4 X^3 + A/4 X + B/4^2 /.
- X -> WeierstrassP[u, {-(A/4), -(B/4^2)}] /. {A -> 322,
- B -> 1453} /. u -> 0.4 // N
复制代码
Four Lectures on Weierstrass Elliptic Function and Applications in Classical and Quantum Mechanics
arxiv.org/pdf/1706.07371
Fukushima, T. (2013). Recursive computation of derivatives of elliptic functions and of incomplete elliptic integrals.
sci-hub.ru/https://doi.org/10.1016/j.amc.2013.06.008
Elliptic constructions of hyperkaehler metrics III: Gravitons and Poncelet polygons
arxiv.org/pdf/0712.3601
- f[z_?NumericQ] :=
- InverseWeierstrassP[{(4 WeierstrassP[z, {-(3/4), -(5/16)}])/4,
- -Sqrt[
- 4 ((4 WeierstrassP[z, {-(3/4), -(5/16)}])/4)^3 +
- 3/4 ((4 WeierstrassP[z, {-(3/4), -(5/16)}])/4) + 5/16]}, {-(3/
- 4), -(5/16)}];
- g[z_?NumericQ] :=
- InverseWeierstrassP[(4 WeierstrassP[z, {-(3/4), -(5/16)}])/
- 4, {-(3/4), -(5/16)}];
- h[z_?NumericQ] :=
- NIntegrate[1/
- Sqrt[t^3 + 3 t + 5], {t,
- 4 WeierstrassP[z, {-3/4, -5/16}], +Infinity}];
- hs[z_?NumericQ] :=
- 1/2 NIntegrate[1/
- Sqrt[u^3 + 3 u + 5], {u,
- WeierstrassP[z, {-4*3, -4*5}], +Infinity}];
- Plot[{f[z], g[z], h[z], hs[z]}, {z, -10, 10},
- Frame -> True, FrameLabel -> {{"f(z)", None}, {"z", "my integral"}},
- GridLines -> Automatic, GridLinesStyle -> LightGray,
- PlotStyle -> {{Green}, {Blue, Dotted}, {Red, Dashed}, {Brown,
- DotDashed}}, BaseStyle -> 12, ImageSize -> Large]
复制代码
\begin{align*}
\zeta \left(z;g_2,g_3\right)
&=\frac{1}{z}-\int_0^z \left(\wp \left(t;g_2,g_3\right)-\frac{1}{t^2}\right) \mathrm{d}t\\
&=\frac{1}{z}-\int_0^z \frac{\wp \left(t;g_2,g_3\right)-\frac{1}{t^2}}{\wp'\!\left(t;g_2,g_3\right)} \mathrm{d}(\wp\left(t;g_2,g_3\right))\\
&=\frac{1}{z}-\int_0^{\wp\left(z;g_2,g_3\right)}\frac{u-\frac{1}{[\wp^{-1}\left(u;g_2,g_3\right)]^2}}{\sqrt{4u^3-g_2u-g_3}}\mathrm{d}u\\
\end{align*}
|
|