3 lines
83 B
Text
3 lines
83 B
Text
>function IdentityMatrix (n:index)
|
|
$ return setdiag(zeros(n,n),0,1);
|
|
$endfunction
|