如何在保存SIG无花果的同时，如何将Mathematica列表导出为固定宽度文本文件

Question

我的第一个问题是如何使用Mathematica以固定宽度格式导出数据？我的第二个问题是如何保留最合适的0。

例如，我喜欢将 {{1.12300, 11.12, 111.123},{2.1, 22.123, 222}}保存到文本文件中

1.12300  11.12   111.123
2.10     22.123  222.00

详细说明，如果一个数字具有少于2位数字的Mantissa，则可以通过零填充匹配2位，而如果其在其Mantissa中具有超过2位数字，则可以将其保留为原样。对我来说，将1.12300与1.123区分开很重要。如果我使用PaddingForm，Mathematica实际上将其保存为文本文件中的PaddedForm[1.123, {4, 5}]。

Answer 1

为了在诸如1.12300之类的数字上保留尾随零，必须将数据作为字符串接收。然后可以像这样处理。

data = "{{1.12300, 11.12, 111.123}, {2.1, 22.123, 222}}";
(* remove any whitespace *)
d1 = StringReplace[data, " " -> ""];
(* split the lists *)
d2 = StringSplit[StringTake[d1, {3, -3}], "},{"];
(* split the numbers *)
d3 = StringSplit[d2, ","];
(* magnitude of number except zero *)
mag[n_] := Floor[Log[10, Abs[n]]] + 1
(* format accordingly *)
d4 = Map[With[{x = ToExpression[#]},
     Which[x == 0, If[StringLength[#] > 4, #, "0.00"],
      FractionalPart[100 x] == 0,
      ToString@NumberForm[x, {mag[x] + 2, 2},
         ExponentFunction -> (Null &)],
      True, #]] &, d3, {2}];
(* pad output *)
len = Max[StringLength /@ Flatten[d4]] + 2;
d5 = Map[StringPadRight[#, len] &, d4, {2}];
d6 = StringJoin /@ d5;
Export["output.txt", d6];
Import["output.txt"]

1.12300  11.12    111.123
2.10     22.123   222.00

Answer 2

使用

data = {{1.12300``6, 11.12``3,  111.123``4}, 
        {2.1``2,     22.123``4, 222``2}};
tbl1 = ToString[TableForm[data]];
tbl2 = StringReplace[tbl, "nn" -> "n"]

获得

1.12300   11.12    111.123
2.1       22.123   222.0

如果您不想以一组字符串输入数据，则需要使用``指定数据的准确性。参见Mathematica的数字精度教程。

Answer 3

类似的东西？

listt = {{1.12300, 11.12, 111.123}, {2.1, 22.123, 222}}
Export["C:/tcdata/list.txt", Flatten /@ listt, "Table"]