将数据从 txt 导入到 Mathematica

Question

考虑mathematica 中的以下列表：

a = {
   {
    {0, 0, 0}, {1, 0, 0}, {1, 1, 0}
    },
   {
    {0, 0, 1}, {1, 0, 1}, {1, 1, 1}
    }
   };

现在，调用：

Export["test.dat", a]

然后

b = Import["test.dat"]

您将看到最后的a 不等于b。我应该将此视为一个功能还是一个错误？

此外，我想导入具有以下格式的列表： {P1,P2,P3...,Pn} 其中 Pi={v1,v2,v3,..., vm} 和每个 vi={x,y,z}，其中 x,y,z 是表示顶点 vi< 坐标的数字/代码>。这应该是一个多边形列表。

我应该如何设置我的 .dat 文件以便我可以使用 Mathematica 读取它，以及我应该如何读取它？我尝试模仿上面 Export["test.dat",a] 的输出，但后来我发现了另一个问题。我发现这个问题 ，但无法让答案对我有用......

有什么想法吗？提前致谢！

Answer 1

您应该指定导入/导出所需的确切格式，否则 Mathematica 可能无法猜测正确的格式。

所以你的问题归结为什么文本格式适合存储 3D 数组？

如果您使用 Mathematica，最简单的方法可能是使用 Mathematica 的表达式语法导出表达式，即 Export["data.m", a, "Package"]。这种格式相对容易用其他语言编写（但解析起来并不容易）。您的另一个选择是为您的 3D 数据创建一些新的易于解析的文本格式，并用 Mathematica 和您需要使用的其他语言为其编写您自己的输入/输出函数。

由于您正在使用的数据的格式是固定的（您总是有坐标三元组），最简单的解决方案可能是在导出之前展平列表，并在导入后对其进行分区，如下所示：

Export["test.txt", Join @@@ a, "Table"]
b = Import["text.txt", "Table"]
Partition[#, 3]& /@ a

Answer 2

为了存储 MMA 表达式，我建议使用 DumpSave （二进制，取决于系统）、Save 或 Put，但如果您想使用 Export I' d 将 a 转换为字符串，并将其导出为文本。 （我在下面使用 ImportString 和 ExpertString，因此我不需要文件，但它对于 Import 和 的工作原理相同导出）。在我看来，这坚如磐石。

a = {{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}};
b = ToExpression@ImportString[ExportString[a // ToString, "Text"], "Text"]

(*  ==>
{{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}}
*)

a == b

(* ==> True *)

读取多边形列表应该具有相同的效果：

b = ToExpression@ImportString["test.dat", "Text"]

Answer 3

例如，您还可以这样做：

a={{{0,0,0},{1,0,0},{1,1,0}},{{0,0,1},{1,0,1},{1,1,1}}};

Export["c:\\test.dat",a,"MathML"];
b=ToExpression@Import["c:\\test.dat","MathML"]

(*
->{{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}}
*)

额外的好处是此方法不需要解析 Import 输出

Answer 4

我也去这个问题。我的解决方案如下：

IN[]: a = {{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}}, {{0, 0, 1}, {1, 0, 1}, {1, 1, 1}}};
      Export["test.dat", a, "List"];
      b = ToExpression@Import["test.dat", "List"];
      a == b

Out[]: True

希望这有帮助。此致。