<box-matrix> ( r -- matrix )
Extra matrix operations

Next:

<hankel-matrix> ( n -- matrix )

Vocabulary
math.matrices.extras

Inputs

r	an integer

Outputs

matrix

a matrix

Word description
Create a box matrix (a square-matrix) with the dimensions of r x r, filled with ones. The number of elements in the output scales linearly ((r*2)+1) with r.

Examples

USING: math.matrices.extras prettyprint ; 2 <box-matrix> .
{ { 1 1 1 1 1 } { 1 1 1 1 1 } { 1 1 1 1 1 } { 1 1 1 1 1 } { 1 1 1 1 1 } }

USING: math.matrices.extras prettyprint ; 3 <box-matrix> .
{ { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } { 1 1 1 1 1 1 1 } }

Definition

USING: arrays kernel math sequences ;

IN: math.matrices.extras

: <box-matrix> ( r -- matrix )
    2 * 1 + dup [ 1 <array> ] curry replicate ;