Mercurial > octave-nkf

diff src/ov.cc @ 9661:afcf852256d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
optimize / and '\ for triangular matrices
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 23 Sep 2009 10:00:16 +0200
parents 1c76e806c2a7
children 34d6f005db4b
line wrap: on
line diff
--- a/src/ov.cc	Mon Sep 21 14:24:27 2009 +0200
+++ b/src/ov.cc	Wed Sep 23 10:00:16 2009 +0200
@@ -377,6 +377,14 @@
       retval = "timesherm";
       break;
 
+    case op_trans_ldiv:
+      retval = "transldiv";
+      break;
+
+    case op_herm_ldiv:
+      retval = "hermldiv";
+      break;
+
     case op_el_and_not:
       retval = "andnot";
       break;
@@ -1996,6 +2004,16 @@
                              v1,
                              do_unary_op (octave_value::op_hermitian, v2));
       break;
+    case octave_value::op_trans_ldiv:
+      retval = do_binary_op (octave_value::op_ldiv,
+                             do_unary_op (octave_value::op_transpose, v1),
+                             v2);
+      break;
+    case octave_value::op_herm_ldiv:
+      retval = do_binary_op (octave_value::op_ldiv,
+                             do_unary_op (octave_value::op_hermitian, v1),
+                             v2);
+      break;
     case octave_value::op_el_not_and:
       retval = do_binary_op (octave_value::op_el_and,
                              do_unary_op (octave_value::op_not, v1),