MathGroup Archive 2001

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

Search the Archive

Re: Special Matrix


Yoram,

How about

PollackMatrix[n_]:=PadLeft[Table[1,{n-2},{n-2}],{n,n},0,{1,1}]

For example

In[4]:=
PollackMatrix[7]

Out[4]=
{{0, 0, 0, 0, 0, 0, 0},

  {0, 1, 1, 1, 1, 1, 0},

  {0, 1, 1, 1, 1, 1, 0},

  {0, 1, 1, 1, 1, 1, 0},

  {0, 1, 1, 1, 1, 1, 0},

  {0, 1, 1, 1, 1, 1, 0},

  {0, 0, 0, 0, 0, 0, 0}}

Carl Woll
Physics Dept
U of Washington

"Yoram Pollack" <syftech at saad.org.il> wrote in message
news:9ah5nq$ps0 at smc.vnet.net...
> Hello
> I am trying to create a "n x n" matrix with "1" in every position exept in
> first and last row, and first and last coulumn, where "0" is needed. In
> other words: sqare matrix full of  "1" sorounded by "0".
> What will be the fastest and shortest way to do it?
>
> Thanks
> Yoram
>
>
>




  • Prev by Date: Change of variables in integration
  • Next by Date: Re: Automatic expansion of Log[a^n] for a, n explicit positive integers?
  • Previous by thread: Re: Special Matrix
  • Next by thread: Re: Special Matrix