Re: Expansion eines Vektorraums

[Rolf Mertig <rolf@XXXXXXX.com>]

Etwas länger, aber vielleicht lesbarer:

expansion[m_?MatrixQ, v_?VectorQ] :=(
   (Normal[SparseArray[
{ {i_, j_} :> m[[i,j]] /; i < #1 && j < #1, 
  {i_, #1} :> v[[i]], 
  {#1, j_} :> v[[j]]}, {#1, #1}]] & )[Length[v]]
)/;Length[v]==Length[m]+1; 
m=Table[1,{8},{8}];
vec=Table[i,{i,9}];
MatrixForm[expansion[m, vec]]

Rolf Mertig

GluonVision GmbH
Berlin

Am Montag, 23. Mai 2005 18:00 schrieb Nowak Robert:
> 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