Gamma function: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
(→{{header|TXR}}: New section.) |
||
Line 4,667: | Line 4,667: | ||
24 |
24 |
||
</pre> |
</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}}== |
=={{header|Visual FoxPro}}== |