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

Re: Special Matrix

• To: mathgroup at smc.vnet.net
• Subject: [mg28231] Re: Special Matrix
• From: "Paul Lutus" <nospam at nosite.com>
• Date: Fri, 6 Apr 2001 01:52:42 -0400 (EDT)
• References: <9ah5nq$ps0@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

"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?

f[n_]:= Table[Sign[Mod[x*y,n-1]],{x,0,n-1},{y,0,n-1}]

--
Paul Lutus
www.arachnoid.com