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

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

Поскольку в Mathematica 6 было введено ArrayFlatten, наименее запутанный раствор должен быть

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

ArrayFlatten@{{vector, matrix}}

Хорошая хитрость в том, что замена любого блока матрицы на 0 дает нулевой блок правильного размера.

Answer 2

Я считаю, что наиболее распространенный способ - это транспонировать, готовить и снова транспонировать:

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

Answer 3

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

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

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

Answer 4

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

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