Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Question about ArrayFlatten

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112212] Re: Question about ArrayFlatten
  • From: Adriano Pascoletti <adriano.pascoletti at uniud.it>
  • Date: Sun, 5 Sep 2010 05:26:23 -0400 (EDT)

In[59]:= genindex = Range[2];
m1 = ConstantArray[0, {2*Length[genindex], 2*Length[genindex]}];
m2 = ConstantArray[0, {Length[genindex], 2*Length[genindex]}];
m3 = ConstantArray[0, {Length[genindex], Length[genindex]}];
m4 = IdentityMatrix[Length[genindex]];
Au1 = ArrayFlatten[{{m1}, {m2}, {ArrayFlatten[{{m3, m4}}]}}]
Out[64]= {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0,
0},
   {0, 0, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}


Adriano Pascoletti

2010/9/4 lightnation <lightnation at naver.com>

> The coding below is not working. I don't know what is wrong.
> Please give me some advice.
>
> m1 = ConstantArray[0, {2 Length[genindex], 2 Length[genindex]}];
> m2 =  ConstantArray[0, {Length[genindex], 2 Length[genindex]}];
> m3 =  ConstantArray[0, {Length[genindex], Length[genindex]}];
> m4 = IdentityMatrix[Length[genindex]];
>
> Au1 = ArrayFlatten[{{m1}, {m2}, {m3, m4}}];
>
>
>
> Thank you.
>
>


  • Prev by Date: Re: problem with RandomInteger
  • Next by Date: Problems with replacement rules inside functions
  • Previous by thread: Re: Question about ArrayFlatten
  • Next by thread: Re: Time Series Data in Quarters [correction]