MathGroup Archive 2001

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

Search the Archive

Re: Special Matrix

  • To: mathgroup at smc.vnet.net
  • Subject: [mg28237] Re: Special Matrix
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Fri, 6 Apr 2001 01:52:46 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <9ah5nq$ps0@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

OneFrameMatrix[n_Integer] := Module[{zrow},
      zrow = Table[0, {n}];
     Prepend[
      Append[Prepend[Append[#, 0], 0] & /@ Table[1, {n - 2}, {n - 2}],
zrow], 
      zrow]
    ]

Regards
  Jens

Yoram Pollack wrote:
> 
> 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: Operations Research 2.0
  • Next by Date: Re: Special Matrix
  • Previous by thread: Re: Special Matrix
  • Next by thread: Re: Special Matrix