23 lines
577 B
Raku
23 lines
577 B
Raku
sub Γ(\z) {
|
|
constant g = 9;
|
|
z < .5 ?? pi/ sin(pi * z) / Γ(1 - z) !!
|
|
sqrt(2*pi) *
|
|
(z + g - 1/2)**(z - 1/2) *
|
|
exp(-(z + g - 1/2)) *
|
|
[+] <
|
|
1.000000000000000174663
|
|
5716.400188274341379136
|
|
-14815.30426768413909044
|
|
14291.49277657478554025
|
|
-6348.160217641458813289
|
|
1301.608286058321874105
|
|
-108.1767053514369634679
|
|
2.605696505611755827729
|
|
-0.7423452510201416151527e-2
|
|
0.5384136432509564062961e-7
|
|
-0.4023533141268236372067e-8
|
|
> Z* 1, |map 1/(z + *), 0..*
|
|
}
|
|
|
|
say Γ($_) for 1/3, 2/3 ... 10/3;
|