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.
Many thanks for your help
Gianfranco Zosi
Dip Fisica Generale
Univ Torino- Italy