使用 NumberForm 和 OutputForm 时，mathematica 转置不起作用

Question

代码就像

nwwa = List["#w#"]; nkka = List["#ks#"];
 For[j = -4, j <= 4, j++,
     w = 16*(0.5 + 0.1*j);
     nwwa = Append[nwwa, w];
     //calculate ks
     nkka = Append[nkka, ks];
 ]
 Export["mathematica1.dat",Transpose[{OutputForm[NumberForm[nwwa, {3, 1}]],OutputForm[NumberForm[nkka, 6]]}], "Table"];

但是我得到了错误：

"前两级 {{"#w#", 1.6, 3.2, 4.8, 6.4, 8., 9.6, 11.2, 12.8, 14.4}, {"#ks#", 0.28995, 0.1955, 0.14515, 0.1159, 0.09655, 0.0828, 0.07255, 0.0646, 0.05815}} 无法转置。

这些数字是 nwwa 和 nkka 的值。

如果我只使用

Export["mathematica1.dat",Transpose[{nwwa,nkka}], "Table"];

有效。但在输出文件中，值类似于

3.200000000000003 0.19549999999999998

不是我想要的

3.2    0.1955

有什么建议吗？

Answer 1

输出格式需要映射到结果上。

Export["mathematica1.dat",
  Transpose[{
    Map[OutputForm[NumberForm[#, {3, 1}]] &, nwwa],
    Map[OutputForm[NumberForm[#, 6]] &, nkka]}], "Table"];

使用 NumberForm 和 OutputForm 时，mathematica 转置不起作用

mathematica transpose does not work when using NumberForm and OutputForm

transpose

wolfram-mathematica