Gamma function: Difference between revisions
→{{header|TXR}}: New section.
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(→{{header|TXR}}: New section.) |
||
Line 4,667:
24
</pre>
=={{header|TXR}}==
===Taylor Series===
{{trans|Ada}}
Separator commas in numeric tokens are supported only as of TXR 283.
<syntaxhighlight lang="txrlisp">(defun gamma (x)
(/ (rpoly (- x 1.0)
#( 1.00000,00000,00000,00000 0.57721,56649,01532,86061
-0.65587,80715,20253,88108 -0.04200,26350,34095,23553
0.16653,86113,82291,48950 -0.04219,77345,55544,33675
-0.00962,19715,27876,97356 0.00721,89432,46663,09954
-0.00116,51675,91859,06511 -0.00021,52416,74114,95097
0.00012,80502,82388,11619 -0.00002,01348,54780,78824
-0.00000,12504,93482,14267 0.00000,11330,27231,98170
-0.00000,02056,33841,69776 0.00000,00061,16095,10448
0.00000,00050,02007,64447 -0.00000,00011,81274,57049
0.00000,00001,04342,67117 0.00000,00000,07782,26344
-0.00000,00000,03696,80562 0.00000,00000,00510,03703
-0.00000,00000,00020,58326 -0.00000,00000,00005,34812
0.00000,00000,00001,22678 -0.00000,00000,00000,11813
0.00000,00000,00000,00119 0.00000,00000,00000,00141
-0.00000,00000,00000,00023 0.00000,00000,00000,00002))))
(each ((i 1..11))
(put-line (pic "##.######" (gamma (/ i 3.0)))))</syntaxhighlight>
{{out}}
<pre> 2.678939
1.354118
1.000000
0.892980
0.902745
1.000000
1.190639
1.504575
2.000000
2.778158</pre>
=={{header|Visual FoxPro}}==
| |||