Changeset 1f8111c in git

Timestamp:

Nov 5, 2001, 2:25:36 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

d70bc7ae105aa7bcd830ec66b34d6a3829450a2e

Parents:

61549bbdbb7155985823498ceb07be5cd6f8128c

Message:

*hannes: matrix/poly


git-svn-id: file:///usr/local/Singular/svn/trunk@5664 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.270 2001-10-30 09:43:44 Singular Exp $ */
+/* $Id: iparith.cc,v 1.271 2001-11-05 13:25:36 Singular Exp $ */
 
 /*
@@ -1169 +1169 @@
   return FALSE;
 }
+static BOOLEAN jjDIV_Ma(leftv res, leftv u, leftv v)
+{
+  poly q=(poly)v->Data();
+  if (q==NULL)
+  {
+    WerrorS(ii_div_by_0);
+    return TRUE;
+  }
+  matrix m=(matrix)(u->Data());
+  int r=m->rows();
+  int c=m->cols();
+  matrix mm=mpNew(r,c);
+  int i,j;
+  for(i=r;i>0;i--)
+  {
+    for(j=c;j>0;j--)
+    {
+      if (pNext(q)!=NULL)
+      {
+      #ifdef HAVE_FACTORY
+        MATELEM(mm,i,j) = singclap_pdivide( MATELEM(m,i,j) ,
+                                           q /*(poly)(v->Data())*/ );
+      #else
+        WerrorS("division only by a monomial");
+        return TRUE;
+      #endif
+      }
+      else
+        MATELEM(mm,i,j) = pDivideM(pCopy(MATELEM(m,i,j)),pHead(q));
+    }
+  }
+  res->data=(char *)mm;
+  return FALSE;
+}
 static BOOLEAN jjEQUAL_I(leftv res, leftv u, leftv v)
 {
@@ -2278 +2312 @@
 ,{jjDIV_P,     '/',            POLY_CMD,       POLY_CMD,   POLY_CMD PROFILER}
 ,{jjDIV_P,     '/',            VECTOR_CMD,     VECTOR_CMD, POLY_CMD PROFILER}
+,{jjDIV_Ma,    '/',            MATRIX_CMD,     MATRIX_CMD, POLY_CMD PROFILER}
 ,{jjDIVMOD_I,  '/',            INT_CMD,        INT_CMD,    INT_CMD PROFILER}
 ,{jjOP_IV_I,   '/',            INTVEC_CMD,     INTVEC_CMD, INT_CMD PROFILER}