Wolfram Mathematica to Latex -数组不完全保持精度

Question

我已经得到了一组数据，我已经安排在mathematica中的数组中。当我以LaTex格式复制时，能量值应该如下所示：

Theta Phi Energy(Hartree) 1.5329及-1.5708及-2775.20972374594 \ 1.53476及-1.25646及-2775.209669993 \ 1.54014及-0.942167及-2775.20947403366 \

当我复制的时候，我得到的是：

1.5329及-1.5708及-2775.21 \ 1.53476及-1.25646及-2775.21 \ 1.54014及-0.942167及-2775.21 \

我已经做了多个数据集，并已使它为所有的工作，除了一个。似乎有一套100点，不断截断。我尝试了以下代码：

PESdatatable316 = {{"Theta", "Phi", "Energy(Hartree)"}};

 Do[
 PESdatatable316 = Append[PESdatatable316, {th316[[i]], phi316[[i]], NumberForm[energies316[[i]], 15]}], {i, 1, 30}]

TableForm[PESdatatable316]

其中：

energies316 = Flatten[{energies100,energies216},1]

这个问题似乎是在“活力100”之内。这些值以12位数输入，但当我调用这些值时，值被截断为6。

示例：

energies100[1]

将产出：

-2775.21

'NumberForm‘校正了mathematica中的值，但是当我复制到LaTex表单时，它返回到截断的值。

我有什么想法能让这些价值观变成什么样子吗？

Answer 1

找到了一个解决办法：

使用“TeXForm”和嵌套在内部的“NumberForm”可以获得正确的精度，并且可以在不出现问题的情况下复制。