/usr/share/freemat/toolbox/test/testeq.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 | function x = testeq(a,b)
if (size(a,1) ~= size(b,1) || size(a,2) ~= size(b,2))
x = 0;
return;
end
d = full(a)-full(b);
if (strcmp(typeof(d),'double') | strcmp(typeof(d),'dcomplex'))
x = isempty(find(abs(d)>10*eps));
else
x = isempty(find(abs(d)>10*feps));
end
|