Mercurial > hg > octave-nkf
diff liboctave/dColVector.cc @ 2676:a5a300c61159
[project @ 1997-02-14 03:16:06 by jwe]
author | jwe |
---|---|
date | Fri, 14 Feb 1997 03:16:12 +0000 |
parents | 4fc9fd1424a9 |
children | 8b262e771614 |
line wrap: on
line diff
--- a/liboctave/dColVector.cc +++ b/liboctave/dColVector.cc @@ -282,28 +282,21 @@ // other operations ColumnVector -map (d_d_Mapper f, const ColumnVector& a) +ColumnVector::map (d_d_Mapper f) const { - ColumnVector b (a); - b.map (f); - return b; + ColumnVector b (*this); + return b.apply (f); } -ColumnVector -map (d_c_Mapper f, const ComplexColumnVector& a) +ColumnVector& +ColumnVector::apply (d_d_Mapper f) { - int a_len = a.length (); - ColumnVector b (a_len); - for (int i = 0; i < a_len; i++) - b.elem (i) = f (a.elem (i)); - return b; -} + double *d = fortran_vec (); // Ensures only one reference to my privates! -void -ColumnVector::map (d_d_Mapper f) -{ for (int i = 0; i < length (); i++) - elem (i) = f (elem (i)); + d[i] = f (d[i]); + + return *this; } double