/usr/share/freemat/toolbox/sparse/speye.m is in freemat-data 4.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | % SPEYE SPEYE Sparse Identity Matrix
%
% Usage
%
% Creates a sparse identity matrix of the given size. The syntax for
% its use is
%
% y = speye(m,n)
%
% which forms an m x n sparse matrix with ones on the main diagonal,
% or
%
% y = speye(n)
%
% which forms an n x n sparse matrix with ones on the main diagonal. The
% matrix type is a float single precision matrix.
% Copyright (c) 2002-2006 Samit Basu
% Licensed under the GPL
function a = speye(n,m)
if (nargin == 1)
m = n;
end
if ((m <= 0) | (n <= 0))
error('size arguments to speye function must be positive integers');
end
a = sparse(1:m,1:n,1);
|