samer@4: function s=size1(A)
samer@4: % size1 - size of array with trailing singleton dimensions stripped
samer@4: %
samer@4: % size1 :: [[Size]] -> Size:[[1,E]].
samer@4: %
samer@4: % size is defined as size1(A)=strip1(size(A)). See STRIP1
samer@4: s=strip1(size(A));