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}}]

以上，所有

2017 / 09 / 10