@@ 877-881 (lines=5) @@ | ||
874 | $fResult = $fTerm = pow($x / 2, $ord) / MathTrig::FACT($ord); |
|
875 | $ordK = 1; |
|
876 | $fSqrX = ($x * $x) / 4; |
|
877 | do { |
|
878 | $fTerm *= $fSqrX; |
|
879 | $fTerm /= ($ordK * ($ordK + $ord)); |
|
880 | $fResult += $fTerm; |
|
881 | } while ((abs($fTerm) > 1e-12) && (++$ordK < 100)); |
|
882 | } else { |
|
883 | $f_2_PI = 2 * M_PI; |
|
884 | ||
@@ 930-934 (lines=5) @@ | ||
927 | $fResult = $fTerm = pow($x / 2, $ord) / MathTrig::FACT($ord); |
|
928 | $ordK = 1; |
|
929 | $fSqrX = ($x * $x) / -4; |
|
930 | do { |
|
931 | $fTerm *= $fSqrX; |
|
932 | $fTerm /= ($ordK * ($ordK + $ord)); |
|
933 | $fResult += $fTerm; |
|
934 | } while ((abs($fTerm) > 1e-12) && (++$ordK < 100)); |
|
935 | } else { |
|
936 | $f_PI_DIV_2 = M_PI / 2; |
|
937 | $f_PI_DIV_4 = M_PI / 4; |