Problem with TableForm

• To: mathgroup at smc.vnet.net
• Subject: [mg124942] Problem with TableForm
• From: zosi <zosi at to.infn.it>
• Date: Mon, 13 Feb 2012 03:41:14 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

```Dear Mathgroup,
I have a list "data" with 15 couples of numbers.
data = {{11111.222223333344444, 0.0000000000000005},
{11111.2222233333, 0.00000000005},
{11111.22222, 0.000005},
{11.2233, 0.00005},
{11.223300000000, 0.0000000000005} ,
{11.2233000000000000000,
0.00000000000000000005},
{1234000., 0.5},
{1.234, 0.0005},
{1234000.00005, 0.000005},
{1234000000.000054321, 0.0000000005},
{0.00001234, 0.000000005},
{0.00012340000000000,  0.00000000000000005},
{ 1.0*1020, 0.5},
{ 100000000000000000000., 0.5},
{1.0*103, 0.5}}

I need to prepare a Table like the following

TableForm[Table[{i, NumberForm[data[[i, 1]], 20],
Precision[data[[i, 1]]],
-Log[10, data[[i, 2]]/data[[i, 1]] ],
Accuracy[data[[i, 1]]],
-Log[10, data[[i, 2]]]
}, {i, 1, Length[data]}],
TableHeadings -> {{}, {"i", "x", "Precision[x]", "-Log[10,Abs[err/x]]",
"Accuracy[x]",
"-Log[10,Abs[x]]",}}]

You can observe that  the second column "x" shows the data[[i,1]].
Unfortunately, in some cases (i=5,7,9,10,12,13,14,15),
the printed value is not EXACTLY equal to the corresponding value in "data"
for example
data[[5,1]]= 11.223300000000 is printed as 11.2233
data[[7,1]]= 1234000.               is printed as 1.234*10^6

Can you teach me how to obtain in the Table the same format as in "data"?
I have tried without success various alternative options (ScientificForm,
AccountingForm, PaddedForm,...). Some of them work, but not in every case.