CarlsonRK[x,y]
Carlsonの楕円積分
を与える.
CarlsonRK
CarlsonRK[x,y]
Carlsonの楕円積分
を与える.
例題
すべて開く すべて閉じる例 (3)
スコープ (12)
数値評価 (5)
CarlsonRK[1.0, Sqrt[2] - 1]N[CarlsonRK[5, 7], 50]CarlsonRK[5, 7.67890123456789012345]CarlsonRK[5, 7.678901234567890123456789012345]CarlsonRK[1 + I, 1. - I]Timing[CarlsonRK[11, 4`500]]Timing[Precision[CarlsonRK[11, 4`100000]]]CarlsonRKは要素単位でリストに縫い込まれる:
CarlsonRK[4, {1., 2., 3., 4., 5.}]特定の値 (1)
微分と積分 (2)
関数表現 (1)
TraditionalFormによる表示:
CarlsonRK[x, y]//TraditionalForm関数の恒等式と簡約 (3)
CarlsonRKは,オイラー・ポアソン(Euler–Poisson)の偏微分方程式を満足する:
(x - y)Subscript[∂, xy]CarlsonRK[x, y] + (1/2) Subscript[∂, y]CarlsonRK[x, y] - (1/2)Subscript[∂, x]CarlsonRK[x, y] == 0//FunctionExpand//FullSimplifyCarlsonRKは,オイラーの同次関係を満足する:
x Subscript[∂, x]CarlsonRK[x, y] + y Subscript[∂, y]CarlsonRK[x, y] == -(1/2) CarlsonRK[x, y]//FunctionExpand//FullSimplifyCarlsonRKが満足する偏微分方程式:
Subscript[∂, x]CarlsonRK[x, y] + Subscript[∂, y]CarlsonRK[x, y] == -(1/2 x y)CarlsonRE[x, y]//FunctionExpand//FullSimplifyアプリケーション (5)
Lemniscate of Bernoulli(ベルヌーイのレムニスケート)の弧の全長を求める:
N[2π CarlsonRK[1, 2], 25]ArcLengthの結果と比較する:
ArcLength[{(Cos[t]/1 + Sin[t]^2), (Sin[t]Cos[t]/1 + Sin[t]^2)}, {t, 0, 2π}, WorkingPrecision -> 25]Elliptic Singular Value(楕円の特異値)を評価する:
N[{2π CarlsonRK[16, 8 + 3 Sqrt[7]], (Gamma[(1/7)]Gamma[(2/7)]Gamma[(4/7)]/47^(1/(4))π)}]正規分布上のReciprocal Square Root of a Quadratic Form(二次形式の平方根の逆数)の期待値:
MatrixForm[mat = HilbertMatrix[2]]NExpectation[(Sqrt[2]/Sqrt[{u, v}.mat.{u, v}]), {u, v}BinormalDistribution[0]]//QuietCarlsonRKによる閉じた形の結果と比較する:
N[Gamma[(1/2)](CarlsonRK@@Eigenvalues[mat]), 25]Circular Disk(円板)に対する立体角を可視化する:
With[{L = 2, r0 = 2 / 5, rm = 1},
Graphics3D[{EdgeForm[], Polygon[PadRight[N@CirclePoints[rm, 24], {Automatic, 3}]], {Dashed, Line[{{r0, 0, 0}, {r0, 0, L}}]}, Sphere[{r0, 0, L}, rm / 20]}, Boxed -> False, ViewPoint -> {-2.4, -1.3, 2.}]]With[{L = 2, r0 = 2 / 5, rm = 1},
N[2π Boole[r0 < rm] - (2π L rm/rm - r0)(CarlsonRK[L^2 + (rm - r0)^2, L^2 + (rm + r0)^2] - (r0(L^2 + (rm - r0)^2)/(rm^2 - r0^2)^2) CarlsonRM[(L^2 + (rm + r0)^2/(rm + r0)^2), (L^2 + (rm - r0)^2/(rm + r0)^2), (L^2 + (rm - r0)^2/(rm - r0)^2)]), 20]]NIntegrate の結果と比較する:
With[{L = 2, r0 = 2 / 5, rm = 1},
L NIntegrate[(r/(r^2 - 2r0 r Cos[θ] + r0^2 + L^2)^3 / 2), {r, 0, rm}, {θ, 0, 2π}]]R = 1 / 6;r = 5 / 9;b = 5 / 11;
cyl = Cylinder[{{0, 0, 0}, {0, 0, 2r}}, R];
ball = Ball[{b, 0, r}, r];Show@{
Graphics3D[{Opacity[1 / 2], cyl, ball}], Region[RegionIntersection[cyl, ball], PlotTheme -> "Web"]}Cylinder-Ball Intersection(円筒と球の交点)の体積:
N[(2π/9 )(2R(3 R (2 r^2 - R^2) - b (b^2 - 4 r^2 + 5 b R + 7 R^2) + (3 r^4/b - R))CarlsonRK[(b - r + R) (b + r + R), 4b R] +
(b^2 - 4 r^2 + 7 R^2)CarlsonRE[(b - r + R) (b + r + R), 4b R] +
6b R r^4(b + r - R) (b + R) (b - r - R)CarlsonRM[(b - R)^2 (b - r + R) (b + r + R), 4 b R(b - R)^2, 4 b R r^2]), 20]Volumeの結果と比較する:
Volume[RegionIntersection[cyl, ball], WorkingPrecision -> 20]特性と関係 (3)
CarlsonRKは,その引数を並べ替えても変わらない:
CarlsonRK[x, y] == CarlsonRK[y, x]CarlsonRKとCarlsonREはルジャンドルの関係式を満足する:
CarlsonRE[y - x, y]CarlsonRK[x, y] + CarlsonRE[x, y]CarlsonRK[y - x, y] - y CarlsonRK[x, y]CarlsonRK[y - x, y] == (2/π) /. {{x -> 5`50, y -> 7`50}, {x -> 5`50, y -> 3`50}}CarlsonRKはArithmeticGeometricMeanに関連している:
FullSimplify[CarlsonRK[x^2, y^2] == (1/ArithmeticGeometricMean[x, y]), x > 0 && y > 0]おもしろい例題 (1)
1 - (6 + 2 Sqrt[3] + Sqrt[6]/18)CarlsonRK[1, 14 Sqrt[6] + 20 Sqrt[3] - 24 Sqrt[2] - 34]^-2 //N1000回のランダムウォークモデルを実行して何回原点に帰ったかを数える:
BlockRandom[SeedRandom[11];Count[Table[walkerPosition = {0, 0, 0};steps = 0;While[steps++;walkerPosition += {{1, 0, 0}, {-1, 0, 0}, {0, 1, 0}, {0, -1, 0}, {0, 0, 1}, {0, 0, -1}}[[Random[Integer, {1, 6}]]];
steps < 100 && walkerPosition =!= {0, 0, 0}];steps, {1000}], _ ? (LessThan[100])]]テキスト
Wolfram Research (2021), CarlsonRK, Wolfram言語関数, https://reference.wolfram.com/language/ref/CarlsonRK.html.
CMS
Wolfram Language. 2021. "CarlsonRK." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/CarlsonRK.html.
APA
Wolfram Language. (2021). CarlsonRK. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/CarlsonRK.html
BibTeX
@misc{reference.wolfram_2026_carlsonrk, author="Wolfram Research", title="{CarlsonRK}", year="2021", howpublished="\url{https://reference.wolfram.com/language/ref/CarlsonRK.html}", note=[Accessed: 14-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_carlsonrk, organization={Wolfram Research}, title={CarlsonRK}, year={2021}, url={https://reference.wolfram.com/language/ref/CarlsonRK.html}, note=[Accessed: 14-August-2026]}