Re: Special Matrix
- To: mathgroup at smc.vnet.net
- Subject: [mg28240] Re: Special Matrix
- From: Erich Mueller <emuelle1 at uiuc.edu>
- Date: Fri, 6 Apr 2001 01:52:49 -0400 (EDT)
- Organization: University of Illinois at Urbana-Champaign
- References: <9ah5nq$ps0@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Here is one approach, Its probably not the fastest, but is relatively
straightforward:
Mat[n_] := (V = Array[1 &, n]; V[[1]] = 0; V[[n]] = 0; Outer[Times, V, V])
Typing
Mat[3]
returns
{{0, 0, 0}, {0, 1, 0}, {0, 0, 0}}
Erich
On 5 Apr 2001, 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
>
>
>
>