hi daniel,
In[46]:=
L=Array[l,{6,6}];
M=Array[m,{6,6}];
In[48]:=
L1=L//Join[#,0 Table[First@#,{3}]]&//Transpose//Join[#,0 Table[First@#,{3}]]&//Transpose;
In[49]:=
M1=M//Join[0 Table[First@#,{3}],#]&//Transpose//Join[0 Table[First@#,{3}],#]&//Transpose;
In[50]:=
L1+M1//MatrixForm
honorarnote folgt,
grüsse robert
-----Original Message-----
From: Daniel Froemmel [mailto:daniel.froemmel@XXXXXXX.de]
Sent: Wednesday, June 09, 2004 12:44 PM
To: demug@XXXXXXX.ch
Subject: Matrizen zusammenfassen
Hallo Mathematica-Experten,
ich habe zwei 6x6 Matrizen, die ich zu einer 9x9 Matrix zusammenfassen
will. Element 1,1
der ersten 6x6 Matrix soll auch Element 1,1 der 9x9 Matrix sein. Element
6,6 der zweiten
6x6 Matrix soll Element 9,9 der 9x9 Matrix sein. Sich überlagernde
Elemente sollen addiert
werden.
Wie mache ich (bzw. Mathematica) das am besten?
Es handelt sich um Elementsteifigkeitsmatrizen für eine einfache FEM-Übung.
Vielen Dank für die Aufmerksamkeit!
mfg Daniel