login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Decimal expansion of rho(a,b), the cross-correlation coefficient of two sides of a random Gaussian triangle (in two dimensions).
3

%I #19 Nov 27 2020 04:21:10

%S 2,3,2,5,5,9,3,4,6,5,4,3,1,7,8,2,3,4,4,7,3,0,9,0,3,5,9,7,5,0,3,3,3,8,

%T 9,9,3,1,0,4,3,5,0,1,5,4,3,5,0,2,0,4,0,9,8,8,5,9,9,4,2,1,0,5,9,7,7,6,

%U 1,7,9,9,9,1,4,9,8,0,9,1,9,1,7,5,9,5,4,5,1,2,5,4,6,9,0,8,3,8,5,2,7,8,4

%N Decimal expansion of rho(a,b), the cross-correlation coefficient of two sides of a random Gaussian triangle (in two dimensions).

%C Coordinates are independent normally distributed random variables with mean 0 and variance 1.

%H G. C. Greubel, <a href="/A249492/b249492.txt">Table of n, a(n) for n = 0..5000</a>

%H Steven R. Finch, <a href="/A102519/a102519.pdf">Random Triangles</a>, January 21, 2010. [Cached copy, with permission of the author]

%H Eric Weisstein MathWorld, <a href="http://mathworld.wolfram.com/GaussianTrianglePicking.html">Gaussian Triangle Picking</a>

%F rho = (p - Pi)/(4 - Pi), where p is A249491, the expected value of the product of two sides.

%e 0.23255934654317823447309035975033389931043501543502...

%p Re(evalf((4*EllipticE(1/2) - sqrt(3)*EllipticK(I/sqrt(3)) - Pi)/(4 - Pi), 120)); # _Vaclav Kotesovec_, Apr 22 2015

%t p = 4*EllipticE[1/4] - Sqrt[3]*EllipticK[-1/3]; rho = (p - Pi)/(4 - Pi); RealDigits[rho, 10, 103] // First

%t RealDigits[(3 EllipticE[8/9] - Pi)/(4 - Pi), 10, 103][[1]] (* _Jan Mangaldan_, Nov 26 2020 *)

%Y Cf. A102519, A102520, A102556, A102557, A102558, A102559, A249491.

%K nonn,cons,easy

%O 0,1

%A _Jean-François Alcover_, Oct 30 2014