File: squeeze.m

package info (click to toggle)
freemat 4.2%2Bdfsg1-6
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 142,116 kB
  • sloc: ansic: 126,788; cpp: 62,015; python: 2,080; perl: 1,255; sh: 1,146; yacc: 1,019; lex: 239; makefile: 107
file content (20 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
% DOCBLOCK array_squeeze
% 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);