Re: Expansion eines Vektorraums

[Peter Pein <petsie@XXXXXXX.de>]

Nowak Robert schrieb:

>folgender code hängt eine spalte plus eine zeile an M an mit dem element el:
>
>M//Append[#, el]&/@#&//Transpose//Append[#, el]&/@#&//Transpose
>
>
>p.s. für den mma kundigen ist das elegant, für normal sterblichen völlig undurchschaubar.
>
>l.g. robert
>-----Original Message-----
>From: Marc von Bredow [mailto:mvb@XXXXXXX.de] 
>Sent: Monday, May 23, 2005 3:56 PM
>To: demug@XXXXXXX.ch
>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
>
>
>  
>
Eleganz liegt immer im Auge des Betrachters:

m1 = {{a, b}, {c, d}};
spalte = {e, f};
zeile = {g, h, i};
Thread[Append[Thread[Append[m1, spalte]], zeile]]

Liebe Grüße,
Peter