当前位置: 动力学知识库 > 问答 > 编程问答 >

Extracting coordinates from crystal graphics

问题描述:

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

分享给朋友:
您可能感兴趣的文章:
随机阅读: