matrix - 如何在矩阵前添加一列？

Question

好吧，假设我有这个矩阵:{{1,2},{2,3}}，我宁愿有 {{4,1,2},{5,2,3}}。也就是说，我在矩阵前面加了一列。有没有简单的方法来做到这一点？

我最好的建议是这样的:

PrependColumn[vector_List, matrix_List] := 
 Outer[Prepend[#1, #2] &, matrix, vector, 1]

但它混淆了代码并不断需要加载越来越多的代码。这不是以某种方式内置的吗？

Answer 1

自 ArrayFlatten在 Mathematica 6 中引入的最少混淆的解决方案必须是

matrix = {{1, 2}, {2, 3}}
vector = {{4}, {5}}

ArrayFlatten@{{vector, matrix}}

一个不错的技巧是用 0 替换任何矩阵块给你一个大小合适的零块。