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