Kahan summation: Difference between revisions
Content added Content deleted
(added Phix) |
|||
| Line 961: | Line 961: | ||
Kahan sum = 1.0</pre> |
Kahan sum = 1.0</pre> |
||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |
||
{{Output?}} |
|||
<lang modula2>MODULE KahanSummation; |
<lang modula2>MODULE KahanSummation; |
||
FROM RealStr IMPORT RealToStr; |
FROM RealStr IMPORT RealToStr; |
||
| Line 1,025: | Line 1,024: | ||
ReadChar; |
ReadChar; |
||
END KahanSummation.</lang> |
END KahanSummation.</lang> |
||
{{out}} |
|||
<pre>Epsilon = 1.1102230E-16 |
|||
(a + b) + c = 1.00000000 |
|||
Kahan sum = 1.00000000</pre> |
|||
=={{header|PARI/GP}}== |
=={{header|PARI/GP}}== |
||