Mercurial > hg > octave-lyh
diff liboctave/Array2-idx.h @ 2245:aaeccf9e1d32
[project @ 1996-05-22 05:21:16 by jwe]
author | jwe |
---|---|
date | Wed, 22 May 1996 05:21:20 +0000 |
parents | 320f5463c201 |
children | 58e5955495d7 |
line wrap: on
line diff
--- a/liboctave/Array2-idx.h +++ b/liboctave/Array2-idx.h @@ -208,13 +208,23 @@ resize (0, 0); else { - int new_nc = nc - num_to_delete; + int new_nc = nc; + + int idx = 0; + + for (int j = 0; j < nc; j++) + if (j == idx_j.elem (idx)) + { + idx++; + new_nc--; + } + if (new_nc > 0) { T *new_data = new T [nr * new_nc]; int jj = 0; - int idx = 0; + idx = 0; for (int j = 0; j < nc; j++) { if (j == idx_j.elem (idx)) @@ -257,13 +267,23 @@ resize (0, 0); else { - int new_nr = nr - num_to_delete; + int new_nr = nr; + + int idx = 0; + + for (int i = 0; i < nr; i++) + if (i == idx_i.elem (idx)) + { + idx++; + new_nr--; + } + if (new_nr > 0) { T *new_data = new T [new_nr * nc]; int ii = 0; - int idx = 0; + idx = 0; for (int i = 0; i < nr; i++) { if (i == idx_i.elem (idx))