Mercurial > hg > octave-nkf
diff liboctave/Array-util.cc @ 11717:e5510f2d482a release-3-0-x
refactor Array::assignN dimensioning code for empty initial matrices
| author | David Bateman <dbateman@free.fr> |
|---|---|
| date | Wed, 26 Mar 2008 15:41:59 -0400 |
| parents | da540e715d05 |
| children | 935be827eaf8 72830070a17b |
line wrap: on
line diff
--- a/liboctave/Array-util.cc +++ b/liboctave/Array-util.cc @@ -135,6 +135,26 @@ } bool +is_vector (const dim_vector& dim) +{ + int m = 0; + int n = dim.length (); + bool retval = true; + + if (n == 0) + m = 2; + else + { + for (int i = 0; i < n; i ++) + if (dim (i) > 1) + m++; + else if (dim(i) < 1) + m += 2; + } + return (m < 2); +} + +bool any_ones (const Array<octave_idx_type>& arr) { bool retval = false;