MathGroup Archive 2001

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

Search the Archive

Re: Special Matrix


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


  • Prev by Date: Re: Special Matrix
  • Next by Date: Re: 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