Mercurial > octave
diff src/OPERATORS/op-fm-fcm.cc @ 9662:0d3b248f4ab6
further improve mixed real-complex division
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Wed, 23 Sep 2009 11:10:52 +0200 |
parents | 319e2ab9b8ae |
children | 7e5b4de5fbfe |
line wrap: on
line diff
--- a/src/OPERATORS/op-fm-fcm.cc Wed Sep 23 10:00:16 2009 +0200 +++ b/src/OPERATORS/op-fm-fcm.cc Wed Sep 23 11:10:52 2009 +0200 @@ -83,6 +83,19 @@ return ret; } +DEFBINOP (trans_ldiv, float_matrix, float_complex_matrix) +{ + CAST_BINOP_ARGS (const octave_float_matrix&, + const octave_float_complex_matrix&); + MatrixType typ = v1.matrix_type (); + + FloatComplexMatrix ret = xleftdiv (v1.float_matrix_value (), + v2.float_complex_matrix_value (), typ, blas_trans); + + v1.matrix_type (typ); + return ret; +} + DEFNDCMPLXCMPOP_FN (lt, float_matrix, float_complex_matrix, float_array, float_complex_array, mx_el_lt) DEFNDCMPLXCMPOP_FN (le, float_matrix, float_complex_matrix, float_array,