Mathematica进阶[1]–mathematica中数组一维转二维

Mathematica进阶[1]--mathematica中数组一维转二维

说明

在进阶里没有前后顺序，是我想到什么就写什么。

问题来源

在使用下面的代码时，不能显示列标题

TableForm[{1, 2, 3}, TableHeadings -> {{a, b, c}, {d}}]

上面代码的效果如下图所示，很明显是不对的，因为少了列标d，那么究竟是什么原因呢？

问题原因

最后发现是因为 {1, 2, 3} 是一维的, 转换成二维就可以，即{{1},{2},{3}}

TableForm[{{1}, {2}, {3}}, TableHeadings -> {{a, b, c}, {d}}]

解决办法

那么我们有什么办法可以快速将一维数组变成二维数组呢，我们有以下两种办法？

方法一

Transpose[{{1, 2, 3}}]

方法二

Map[List, {1, 2, 3}]

具体效果我们可以看下图所示

最后我们给出一个整体的代码：

TableForm[List /@ {1, 2, 3}, TableHeadings -> {{a, b, c}, {d}}]