Help with Mathematica/

[docfan123]

I've this problem i don't know how to solve ... I declare this two vectors of numbers(a shortened list) and then when I make a table with them for further calculation, Mathematica truncates some of them, not showing the decimal part of the numbers with more than 6 digits ... The code is:

VX = {-12, -11, -10, -9, -8, -7, -6};
VY = {891628, 528522.1, 297984, 158106.1, 77812, 34804.5, 13729.6};

Points = {VX, VY};
Mat := Transpose[Points];

Print["Table of values: "];
Print[TableForm[Mat, TableHeadings -> {None, {"X", "Y"}},
TableSpacing -> {1, 4}, TableAlignments -> Right]];

And the results :

X Y
-12 891628
-11 528522.
-10 297984
-9 158106.
-8 77812
-7 34804.5
-6 13729.6

see the Y's corresponding to X=-11 and -9, doesn't have the decimal part as declared :(
How i do make it right ?
Thanks, very much

[Bill Simpson]

Use NumberForm[].

In[18]:= NewMat=Map[NumberForm[#,{8,2}]&,Mat,{-1}];

In[19]:= FullForm[NewMat]

Out[19]//FullForm= List[
List[NumberForm[-12,List[8,2]],NumberForm[891628,List[8,2]]],
List[NumberForm[-11,List[8,2]],NumberForm[528522.1`,List[8,2]]],
List[NumberForm[-10,List[8,2]],NumberForm[297984,List[8,2]]],
List[NumberForm[-9,List[8,2]],NumberForm[158106.1`,List[8,2]]],
List[NumberForm[-8,List[8,2]],NumberForm[77812,List[8,2]]],
List[NumberForm[-7,List[8,2]],NumberForm[34804.5`,List[8,2]]],
List[NumberForm[-6,List[8,2]],NumberForm[13729.6`,List[8,2]]]]

In[20]:= Print["Table of values: "];
Print[TableForm[NewMat,TableHeadings->{None,{"X","Y"}},
TableSpacing->{1,4},TableAlignments->Right]];

From In[20]:=Table of values:

From In[20]:=
X Y
-12 891628.
-11, 528522.1
etc.

[docfan123]

Thanks a lot!! It worked fine...