@@ 937-941 (lines=5) @@ | ||
934 | $fResult = $fTerm = pow($x / 2, $ord) / MathTrig::FACT($ord); |
|
935 | $ordK = 1; |
|
936 | $fSqrX = ($x * $x) / -4; |
|
937 | do { |
|
938 | $fTerm *= $fSqrX; |
|
939 | $fTerm /= ($ordK * ($ordK + $ord)); |
|
940 | $fResult += $fTerm; |
|
941 | } while ((abs($fTerm) > 1e-12) && (++$ordK < 100)); |
|
942 | } else { |
|
943 | $f_PI_DIV_2 = M_PI / 2; |
|
944 | $f_PI_DIV_4 = M_PI / 4; |
|
@@ 882-886 (lines=5) @@ | ||
879 | $fResult = $fTerm = pow($x / 2, $ord) / MathTrig::FACT($ord); |
|
880 | $ordK = 1; |
|
881 | $fSqrX = ($x * $x) / 4; |
|
882 | do { |
|
883 | $fTerm *= $fSqrX; |
|
884 | $fTerm /= ($ordK * ($ordK + $ord)); |
|
885 | $fResult += $fTerm; |
|
886 | } while ((abs($fTerm) > 1e-12) && (++$ordK < 100)); |
|
887 | } else { |
|
888 | $f_2_PI = 2 * M_PI; |
|
889 |