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