Mercurial > hg > octave-nkf

comparison liboctave/CNDArray.cc @ 8650:a1ae2aae903e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
abs,real,imag,conj: use code from mx-inlines rather than the generic map
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 02 Feb 2009 15:35:32 +0100
parents 25bc2d31e1bf
children 53b4fdeacc2e
comparison
equal deleted inserted replaced
8649:e50b44b75891 8650:a1ae2aae903e
888 } 888 }
889 889
890 NDArray 890 NDArray
891 ComplexNDArray::abs (void) const 891 ComplexNDArray::abs (void) const
892 { 892 {
893 NDArray retval (dims ()); 893 return NDArray (mx_inline_cabs_dup (data (), length ()),
894 894 dims ());
895 octave_idx_type nel = nelem (); 895 }
896 896
897 for (octave_idx_type i = 0; i < nel; i++) 897 ComplexNDArray
898 retval(i) = std::abs (elem (i)); 898 conj (const ComplexNDArray& a)
899 899 {
900 return retval; 900 return ComplexNDArray (mx_inline_conj_dup (a.data (), a.length ()),
901 a.dims ());
901 } 902 }
902 903
903 ComplexNDArray& 904 ComplexNDArray&
904 ComplexNDArray::insert (const NDArray& a, octave_idx_type r, octave_idx_type c) 905 ComplexNDArray::insert (const NDArray& a, octave_idx_type r, octave_idx_type c)
905 { 906 {