Changeset 24a9587 in git for Singular

Timestamp:

Jun 27, 2012, 1:45:03 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cffd3e2f630fbc7b0e35afee97d6fa948cfd0b3e

Parents:

aaf761115c8487a0b7cf9172e2957b9899725c93

Message:

add: det for bigintmat

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• table.h (modified) (1 diff)

Singular/iparith.cc

@@ -3839 +3839 @@
     p=singclap_det(m,currRing);
   res ->data = (char *)p;
+  return FALSE;
+}
+static BOOLEAN jjDET_BI(leftv res, leftv v)
+{
+  bigintmat * m=(bigintmat*)v->Data();
+  int i,j;
+  i=m->rows();j=m->cols();
+  if(i==j)
+    res->data = (char *)(long)singclap_det_bi(m,coeffs_BIGINT);
+  else
+  {
+    Werror("det of %d x %d bigintmat",i,j);
+    return TRUE;
+  }
   return FALSE;
 }

Singular/table.h

@@ -84 +84 @@
 ,{D(jjNUMERATOR),  NUMERATOR_CMD,   NUMBER_CMD,     NUMBER_CMD    , ALLOW_PLURAL |ALLOW_RING}
 #ifdef HAVE_FACTORY
+,{D(jjDET_BI),     DET_CMD,         BIGINT_CMD,     BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjDET_I),      DET_CMD,         INT_CMD,        INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjDET),        DET_CMD,         POLY_CMD,       MATRIX_CMD    , NO_PLURAL |ALLOW_RING}