7 lines
123 B
Text
7 lines
123 B
Text
function IdentityMatrix(n)
|
|
$ X:=zeros(n,n);
|
|
$ for i=1 to n
|
|
$ X[i,i]:=1;
|
|
$ end;
|
|
$ return X;
|
|
$endfunction
|