Jak dodać kolumnę do macierzy?

Question

Ok, wyobraź sobie, że mam tę Matrix: {{1,2}, {2,3}}, a wolę mieć {{4,1,2}, {5,2,3}}. To znaczy, dodałem kolumnę do macierzy. Czy istnieje prosty sposób na zrobienie tego?

Moja najlepsza propozycja jest taka:

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

Ale zaciemnia kod i ciągle wymaga ładowania coraz więcej kodu. Czy to nie jest w jakiś sposób zbudowane?

Answer 1

Od ArrayFlatten został wprowadzony w Mathematica 6 najmniej ukrywane rozwiązanie musi być

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

ArrayFlatten@{{vector, matrix}} 

Miła trik jest to, że zastąpienie dowolnego bloku macierzy wartością 0 daje zerowy blok o odpowiednim rozmiarze.

Answer 2

myślę, że co najmniej niejasne jest następujący sposób robi to:

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

Ogólnie MapThread jest funkcją, która będzie najczęściej używane do zadań takich jak ten (używam go cały czas dodawania etykiet do tablic przed ich ładnym uformowaniem za pomocą Grid) i może sprawić, że rzeczy będą bardziej przejrzyste i zwięzłe w użyciu Prepend zamiast równoważnego Prepend[#1, #2]&.

Answer 3

wierzę, najczęstszym sposobem jest transpozycja, prepend i transpozycji ponownie:

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

Answer 4

THE ... ABSOLUTNIE .. ZA DALEJ ... NAJSZYBSZA metoda dodawania lub dodawania kolumn z moich testów różnych metod na tablicy RandomReal[100,{10^8,5}] (dzieci, nie próbuj tego w domu ... jeśli twoja maszyna nie jest zbudowane dla szybkości i pamięci, operacje na macierzy tego rozmiaru gwarantują, że powiesisz komputer) ... jest to: Append[tmp\[Transpose], Range@Length@tmp]\[Transpose]. Wymień Append z Prepend do woli.

Następna najszybsza rzecz jest następująca: Table[tmp[[n]]~Join~{n}, {n, Length@tmp}] - prawie dwa razy wolniej.