问题描述:

I am trying to extract crystal coordinates from from graphics as in

cell = LatticeData["TetrahedralPacking", "Image"];

\[ScriptCapitalR] = Translate[cell[[1]], 2 Tuples[Range[2], 3]];

points = TableForm[Cases[\[ScriptCapitalR], {x_?NumericQ, y_?NumericQ,z_?NumericQ},Infinity]];

Export["mfiled2.xlsx", points]

However the data is garbled. Can anyone assist? Thanks

相关阅读:
Top