/usr/share/freemat/toolbox/array/issquare.m is in freemat-data 4.0-5build1.
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 | % ISSQUARE ISSQUARE Test For a Square matrix
%
% Usage
%
% This function tests to see if the argument is a square matrix. The
% syntax for issquare is
%
% x = issquare(y)
%
% and it returns a logical 1 if the argument is size N x N
% logical 0 otherwise.
% Copyright (c) 2002-2007 Samit Basu
% Licensed under the GPL
function y = issquare(x)
s = size(x);
y = isempty(x) || (( s(1) == s(2) ) && ismatrix( x ));
|