Mercurial > hg > octave-nkf
diff src/xdiv.cc @ 4543:79df15d4470c
[project @ 2003-10-18 03:53:52 by jwe]
author | jwe |
---|---|
date | Sat, 18 Oct 2003 03:53:53 +0000 |
parents | 6b96ce9f5743 |
children | 334a27c8f453 |
line wrap: on
line diff
--- a/src/xdiv.cc +++ b/src/xdiv.cc @@ -28,6 +28,8 @@ #include "CMatrix.h" #include "dMatrix.h" +#include "CNDArray.h" +#include "dNDArray.h" #include "oct-cmplx.h" #include "quit.h" @@ -305,6 +307,71 @@ return result; } +// Funny element by element division operations. +// +// op2 \ op1: s cs +// +-- +---+----+ +// N-d array | 1 | 3 | +// +---+----+ +// complex N-d array | 2 | 4 | +// +---+----+ + +NDArray +x_el_div (double a, const NDArray& b) +{ + NDArray result (b.dims ()); + + for (int i = 0; i < b.length (); i++) + { + OCTAVE_QUIT; + result (i) = a / b (i); + } + + return result; +} + +ComplexNDArray +x_el_div (double a, const ComplexNDArray& b) +{ + ComplexNDArray result (b.dims ()); + + for (int i = 0; i < b.length (); i++) + { + OCTAVE_QUIT; + result (i) = a / b (i); + } + + return result; +} + +ComplexNDArray +x_el_div (const Complex a, const NDArray& b) +{ + ComplexNDArray result (b.dims ()); + + for (int i = 0; i < b.length (); i++) + { + OCTAVE_QUIT; + result (i) = a / b (i); + } + + return result; +} + +ComplexNDArray +x_el_div (const Complex a, const ComplexNDArray& b) +{ + ComplexNDArray result (b.dims ()); + + for (int i = 0; i < b.length (); i++) + { + OCTAVE_QUIT; + result (i) = a / b (i); + } + + return result; +} + // Left division functions. // // op2 \ op1: m cm