21 lines
1.1 KiB
Plaintext
21 lines
1.1 KiB
Plaintext
(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)))))
|