Re: Expansion eines Vektorraums

[Thomas Hahn <hahn@XXXXXXX.de>]

> angenommen, man hat eine (n x n)-Matrix und möchte jetzt eine [(n+1) x
> (n+1)]-Matrix machen, indem man jeweils einen Spalten - und Zeilenvektor
> dazufügt.
> (Das letzte Element der Vektoren ist identisch.)
> Wie macht man das mit Mathematica am effizientesten?

Hier ist eine Lösung, aber ob das die effizienteste ist?

addvec[mat_, row_, col_] :=
  Append[ Append[mat, Drop[row, -1]]//Transpose, col ]//Transpose

Damit geht dann etwa:

In[2]:= addvec[{{1,2},{3,4}}, {a,b,c}, {d,e,c}] //MatrixForm

Out[2]//MatrixForm= 1   2   d

                    3   4   e

                    a   b   c

Gruß,

Thomas