|
@@ 891-896 (lines=6) @@
|
| 888 |
|
$fRet = -log($fNum2) * self::BESSELI($fNum, 0) + |
| 889 |
|
(-0.57721566 + $y * (0.42278420 + $y * (0.23069756 + $y * (0.3488590e-1 + $y * (0.262698e-2 + $y * |
| 890 |
|
(0.10750e-3 + $y * 0.74e-5)))))); |
| 891 |
|
} else { |
| 892 |
|
$y = 2 / $fNum; |
| 893 |
|
$fRet = exp(-$fNum) / sqrt($fNum) * |
| 894 |
|
(1.25331414 + $y * (-0.7832358e-1 + $y * (0.2189568e-1 + $y * (-0.1062446e-1 + $y * |
| 895 |
|
(0.587872e-2 + $y * (-0.251540e-2 + $y * 0.53208e-3)))))); |
| 896 |
|
} |
| 897 |
|
return $fRet; |
| 898 |
|
} // function _Besselk0() |
| 899 |
|
|
|
@@ 908-913 (lines=6) @@
|
| 905 |
|
$fRet = log($fNum2) * self::BESSELI($fNum, 1) + |
| 906 |
|
(1 + $y * (0.15443144 + $y * (-0.67278579 + $y * (-0.18156897 + $y * (-0.1919402e-1 + $y * |
| 907 |
|
(-0.110404e-2 + $y * (-0.4686e-4))))))) / $fNum; |
| 908 |
|
} else { |
| 909 |
|
$y = 2 / $fNum; |
| 910 |
|
$fRet = exp(-$fNum) / sqrt($fNum) * |
| 911 |
|
(1.25331414 + $y * (0.23498619 + $y * (-0.3655620e-1 + $y * (0.1504268e-1 + $y * (-0.780353e-2 + $y * |
| 912 |
|
(0.325614e-2 + $y * (-0.68245e-3))))))); |
| 913 |
|
} |
| 914 |
|
return $fRet; |
| 915 |
|
} // function _Besselk1() |
| 916 |
|
|