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
>
>
>  
>
Oder als Funktion:

extendMatrix[m_, s:{___, untenrechts_}, z:{___, untenrechts_}] :=
  Thread[Append[Thread[Append[m, Most[s]]], z]]

MatrixForm[extendMatrix[IdentityMatrix[17], Range[18], Range[35,18,-1]]]

Pardon für zwei Nachrichten, die eigentlich in eine gehören,
Peter