@@ 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 |