Mercurial > hg > octave-nkf
diff src/ov-complex.cc @ 5731:c7d5a534afa5
[project @ 2006-04-03 19:33:26 by jwe]
author | jwe |
---|---|
date | Mon, 03 Apr 2006 19:33:27 +0000 |
parents | 6b42c78c77d3 |
children | ce79d238f142 |
line wrap: on
line diff
--- a/src/ov-complex.cc +++ b/src/ov-complex.cc @@ -149,6 +149,29 @@ return ComplexNDArray (dim_vector (1, 1), scalar); } +octave_value +octave_complex::resize (const dim_vector& dv, bool fill) const +{ + if (fill) + { + ComplexNDArray retval (dv, ComplexNDArray::resize_fill_value ()); + + if (dv.numel ()) + retval(0) = scalar; + + return retval; + } + else + { + ComplexNDArray retval (dv); + + if (dv.numel ()) + retval(0) = scalar; + + return retval; + } +} + bool octave_complex::save_ascii (std::ostream& os, bool& infnan_warned, bool strip_nan_and_inf)