Matris için sütun nasıl?

Question

Tamam, bu Matrise sahip olduğumu düşünün: {{1,2}, {2,3}} ve {{4,1,2}, {5,2,3}} tercih ederim. Yani matrise bir sütun hazırladım. Bunu yapmanın kolay bir yolu var mı?

En iyi öneri şudur:

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

Ama daha kod yükleme gerektirir sürekli kodu obfuscates ve. Bu bir şekilde inşa edilmiş değil mi? MapThread bunun gibi görevler için en sık kullanacağınız fonksiyonu (Ben hepsini kullanmaktır Genel olarak

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

:

Answer 1

Mathematica 6'da tanıtıldı az Karartılmış çözüm

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

ArrayFlatten@{{vector, matrix}} 

Güzel hüner olmalıdır:

Answer 2

Ben az belirsiz Bunu yapmanın şu yolu olduğunu düşünüyorum Zaman Grid ile güzel biçimlendirmeden önce dizilere etiket eklerken zaman ve Prepend[#1, #2]& eşdeğer yerine Prepend kullanmak şeyler daha net ve daha özlü hale getirebilirsiniz. ArrayFlatten yana

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

Answer 3

Ben en yaygın yolu, devrik başa getirebilir ve tekrar devrik olduğuna inanıyoruz Herhangi bir matris bloğunu 0 ile değiştirdiğinizde, size doğru boyutta sıfır blok verir.

Answer 4

THE ... KESİNLİKLE ... ÇOK İYİLEŞTİR ... dizi RandomReal[100,{10^8,5}] çeşitli yöntemler üzerinde benim testler bir sütun eklemek veya eklemek için FASTEST yöntemi (çocuklar, evde deneyin ... makineniz değilse ...: Bu hız ve bellek için oluşturulmuş, bu boyutta bir dizi işlemler bilgisayarınızı asmak için garanti edilir): Append[tmp\[Transpose], Range@Length@tmp]\[Transpose]. 'u Prepend ile değiştirin.

Bir sonraki en hızlı şey şu: Table[tmp[[n]]~Join~{n}, {n, Length@tmp}] - neredeyse iki katı yavaş.