RosettaCodeData/Task/Identity-matrix/Euler-Math-Toolbox/identity-matrix-2.euler

4 lines
83 B
Plaintext

>function IdentityMatrix (n:index)
$ return setdiag(zeros(n,n),0,1);
$endfunction