Leslaw
Grid[Prepend[Table[{
NumberForm[x, {2, 1}],
NumberForm[Erf[x], {11, 10}, DigitBlock -> 5]},
{x, 0, 1, 0.1}],
TraditionalForm /@ {x, Erf[x]}],
Frame -> All]
For greater precision:
n = 25;
Grid[Prepend[Table[{
NumberForm[N[x], {2, 1}],
NumberForm[N[Erf[x], 2 n], {n + 1, n}, DigitBlock -> 5]},
{x, 0, 1, 1/10}],
TraditionalForm /@ {x, Erf[x]}],
Frame -> All]
Bob Hanlon
---- Leslaw Bieniasz <nbbi...@cyf-kr.edu.pl> wrote:
=============
Leslaw
--
Bob Hanlon
Table[{N[x], N[Erf[x], 32]}, {x, -3, 3, 1/5}] // TableForm