Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Merge of Matrices

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71152] Re: Merge of Matrices
  • From: "astanoff" <astanoff at gmail.com>
  • Date: Thu, 9 Nov 2006 03:38:56 -0500 (EST)
  • References: <eisglr$nf9$1@smc.vnet.net>

On 8 nov, 12:56, Robert Berger <rberge... at sinh.us> wrote:
> Hello!
>
> I like to create from the four matrices A (N1 rows and N1 columns),
> B (N1 rows and N2 columns), C (N2 rows and N1 columns),
> D (N2 rows and N2 columns) a new matrix X of the form
>
>       A  B
> X =
>       C  D
>
> Once A & B and C & D have been merged, the first (A & B) and the
> second row (C& D) can be merged in that way by applying Join, which is
> not a problem but how can I merge A & B (and of course C & D) in
> that way?
>
> Kindly regards,
> Roman.

Example :

In[1]:=n1=2; n2=3;

In[2]:=aa=Array[a,{n1,n1}]; bb=Array[b,{n1,n2}];

In[3]:=cc=Array[c,{n2,n1}]; dd=Array[d,{n2,n2}];

In[4]:=x=Array[0&,{n1+n2,n1+n2}];

In[5]:=x[[Range[1,n1],Range[1,n1]]] = aa;
       x[[Range[1,n1],Range[n1+1,n1+n2]]] = bb;
       x[[Range[n1+1,n1+n2],Range[1,n1]]] = cc;
       x[[Range[n1+1,n1+n2],Range[n1+1,n1+n2]]] = dd;

In[9]:=x

Out[9]={
{a[1,1],a[1,2],b[1,1],b[1,2],b[1,3]},
{a[2,1],a[2,2],b[2,1],b[2,2],b[2,3]},
{c[1,1],c[1,2],d[1,1],d[1,2],d[1,3]},
{c[2,1],c[2,2],d[2,1],d[2,2],d[2,3]},
{c[3,1],c[3,2],d[3,1],d[3,2],d[3,3]}}


hth

V.Astanoff


  • Prev by Date: Re: Question about trig simplify
  • Next by Date: RE: ExpandAll[(a + b) ** c] ?
  • Previous by thread: Re: Merge of Matrices
  • Next by thread: Re: Merge of Matrices