Mercurial > hg > octave-nkf

diff src/OPERATORS/op-s-m.cc @ 3766:df962bbf1788

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-01-29 14:33:07 by jwe]
author jwe
date Mon, 29 Jan 2001 14:33:08 +0000
parents 6741bef26719
children 7690958e7726
line wrap: on
line diff
--- a/src/OPERATORS/op-s-m.cc
+++ b/src/OPERATORS/op-s-m.cc
@@ -45,7 +45,12 @@
 
 DEFBINOP (div, scalar, matrix)
 {
-  BINOP_NONCONFORMANT ("operator /");
+  CAST_BINOP_ARGS (const octave_scalar&, const octave_matrix&);
+
+  Matrix m1 = v1.matrix_value ();
+  Matrix m2 = v2.matrix_value ();
+
+  return octave_value (xdiv (m1, m2));
 }
 
 DEFBINOP_FN (pow, scalar, matrix, xpow)