/usr/share/freemat/toolbox/array/squeeze.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 29 30 31 32 | % SQUEEZE SQUEEZE Remove Singleton Dimensions of an Array
%
% Usage
%
% This function removes the singleton dimensions of an array. The
% syntax for its use is
%
% y = squeeze(x)
%
% where x is a multidimensional array. Generally speaking, if
% x is of size d1 x 1 x d2 x ..., then squeeze(x) is of
% size d1 x d2 x ..., i.e., each dimension of x that was
% singular (size 1) is squeezed out.
% Copyright 2004-2005, 2006 Brian Yanoff, Dirk Beque
% Licensed under the GPL
function B = squeeze(A)
sz = size(A);
if (length(sz) == 2)
B = A;
return;
end
sz(find(sz==1)) = [];
if length(sz)==1
sz = [sz,1];
end
if length(sz)==0
sz = [1,1];
end
B = reshape(A,sz);
|