Changeset dfc64d9 in git

Timestamp:

Aug 27, 1998, 2:32:41 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d7622d0bffead9dc2eb8aa64d15564e9b361a7cb

Parents:

9c9fb9d01c2c2a1581d22ee36200b77b2e7bd41c

Message:

* hannnes: transpose for modules


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

Location:

Singular

Files:

• ideals.cc (modified) (2 diffs)
• ideals.h (modified) (2 diffs)
• iparith.cc (modified) (5 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.34 1998-07-14 07:46:26 siebert Exp $ */
+/* $Id: ideals.cc,v 1.35 1998-08-27 12:32:41 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -3172 +3172 @@
 }
 
+/*2
+* transpose a module
+*/
+ideal idTransp(ideal a)
+{
+  int r = a->rank, c = IDELEMS(a);
+  ideal b =  idInit(r,c);
+
+  for (int i=c; i>0; i--)
+  {
+    poly p=a->m[i-1];
+    while(p!=NULL)
+    {
+      poly h=pHead(p);
+      int co=pGetComp(h)-1;
+      pSetComp(h,i);
+      b->m[co]=pAdd(b->m[co],h);
+      pIter(p);
+    }
+  }
+  return b;
+}
+

Singular/ideals.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.h,v 1.8 1998-07-01 13:27:16 Singular Exp $ */
+/* $Id: ideals.h,v 1.9 1998-08-27 12:32:40 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -133 +133 @@
 matrix  idCoeffOfKBase(ideal arg, ideal kbase, poly how);
 intvec *idQHomWeights(ideal id);
+ideal   idTransp(ideal a);
 #endif

Singular/iparith.cc

@@ -2901 +2901 @@
 #define jjDIM_R          (proc1)23
 #define jjMINRES_R       (proc1)24
+#define jjidTransp       (proc1)25
 
 extern struct sValCmd1 dArith1[];
@@ -2939 +2940 @@
         case (int)jjDIM_R:        dArith1[i].p=(proc1)syDim; break;
         case (int)jjMINRES_R:     dArith1[i].p=(proc1)syMinimize; break;
+        case (int)jjidTransp:     dArith1[i].p=(proc1)idTransp; break;
 #ifdef GENTABLE
         default: Werror("missing proc1-definition for %d",(int)dArith1[i].p);
@@ -3064 +3066 @@
 {
   res->data=(char *)syMinimize((syStrategy)v->Data());
+  return FALSE;
+}
+static BOOLEAN jjidTransp(leftv res, leftv v)
+{
+  res->data = (char *)idTransp((ideal)v->Data());
   return FALSE;
 }
@@ -3093 +3100 @@
 #define jjDIM_R        (proc1)syDim
 #define jjMINRES_R     (proc1)syMinimize
+#define jjidTransp     (proc1)idTransp
 #endif
 #endif
@@ -3324 +3332 @@
 ,{jjTRANSP_IV,  TRANSPOSE_CMD,   INTMAT_CMD,     INTMAT_CMD }
 ,{jjmpTransp,   TRANSPOSE_CMD,   XS(MATRIX_CMD), MATRIX_CMD }
+,{jjidTransp,   TRANSPOSE_CMD,   XS(MODUL_CMD),  MODUL_CMD }
 ,{jjTYPEOF,     TYPEOF_CMD,      STRING_CMD,     ANY_TYPE }
 ,{jjDUMMY,      VECTOR_CMD,      VECTOR_CMD,     VECTOR_CMD }