Re: Expansion eines Vektorraums

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo, ist das jetzt elegant ?

SymmetricExtend[m_?MatrixQ, v_?VectorQ] :=
 Transpose[Append[Transpose[Append[m, Take[v, 
Last[Dimensions[m]]]]], v]]


und

m = Table[1, {8}, {8}];
vec = Table[i, {i, 9}];

SymmetricExtend[m, vec] // MatrixForm



Gruß

 Jens

----- Original Message ----- 
From: "Marc von Bredow" <mvb@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Monday, May 23, 2005 3:55 PM
Subject: Expansion eines Vektorraums


> Guten Tag,
>
> 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?
> Ich habe mir zwar eine Lösung "gebastelt", aber 
> die ist nicht elegant.
>
> Marc von Bredow