<simple-eye> ( m n k -- matrix )
Matrix operations

Prev:	<identity-matrix> ( n -- matrix )
Next:	<eye> ( m n k z -- matrix )

Vocabulary
math.matrices

Inputs

m	an integer
n	an integer
k	an integer

Outputs

matrix

a matrix

Word description
Creates an m x n matrix with a diagonal of ones offset by k from the main diagonal.The following are equivalent for any m n k:

m n k 1 <eye>

m n k <simple-eye>

Specify a different diagonal value with <eye>.

Examples

USING: math.matrices prettyprint ; 4 5 2 <simple-eye> .
{ { 0 0 1 0 0 } { 0 0 0 1 0 } { 0 0 0 0 1 } { 0 0 0 0 0 } }

Definition

USING: kernel ;

IN: math.matrices

:: <simple-eye> ( m n k -- matrix )
    m n = k 0 = and [ n <identity-matrix> ] [ m n k 1 <eye> ] if
    ; inline