Как добавить столбец к матрице?

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 дает нулевой блок нужного размера.

Answer 2

Я думаю, что не менее неясное является следующим способом сделать это:

PrependColumn[vector_List, matrix_List] := MapThread[Prepend, {matrix, vector}]; 

В общем, MapThread это функция, которую вы будете использовать наиболее часто для выполнения задач, как этот (я использую его все когда вы добавляете метки в массивы, прежде чем их легко создавать с помощью Grid), и это может сделать вещи намного яснее и более краткими, чтобы использовать Prepend вместо эквивалента Prepend[#1, #2]&.

Answer 3

Я считаю, что наиболее распространенным способом является транспонирование, начало и конец, транспонировать снова:

PrependColumn[vector_List, matrix_List] := 
    Transpose[Prepend[Transpose[matrix], vector]] 

Answer 4

... АБСОЛЮТНО .. ПО FAR ... FASTEST метод добавления или добавления столбца из моих тестов различных методов в массиве RandomReal[100,{10^8,5}] (дети, не пытайтесь это дома ... если ваша машина isn построенный для скорости и памяти, операции на массиве такого размера гарантируют повесить ваш компьютер) ... это: Append[tmp\[Transpose], Range@Length@tmp]\[Transpose]. Замените Append на Prepend по желанию.

Следующее самое быстрое: Table[tmp[[n]]~Join~{n}, {n, Length@tmp}] - почти в два раза медленнее.