Changeset 2c694a2 in git

Timestamp:

Nov 18, 1999, 3:47:02 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

58914b361751179a91896ad4caeb81bd63328253

Parents:

738139da69affc6c8e0d4cafea7d1b7c6d4e3994

Message:

* added rRing_is_Homog


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

Location:

Singular

Files:

• ring.cc (modified) (2 diffs)
• ring.h (modified) (3 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.85 1999-11-18 11:19:15 Singular Exp $ */
+/* $Id: ring.cc,v 1.86 1999-11-18 14:47:01 obachman Exp $ */
 
 /*
@@ -3493 +3493 @@
   }
 }
+
+BOOLEAN rRing_is_Homog(ring r)
+{
+  if (r == NULL) return FALSE;
+  int i, j, nb = rBlocks(r);
+  for (i=0; i<nb; i++)
+  {
+    if (r->wvhdl[i] != NULL)
+    {
+      int length = r->block1[i] - r->block0[i];
+      int* wvhdl = r->wvhdl[i];
+      if (r->order[i] == ringorder_M) length *= length;
+      assume(mmSizeL(wvhdl) >= length*sizeof(int));
+      
+      for (j=0; j< length; j++)
+      {
+        if (wvhdl[j] != 0 && wvhdl[j] != 1) return FALSE;
+      }
+    }
+  }
+  return TRUE;
+}
+
+        

Singular/ring.h

@@ -7 +7 @@
 * ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.42 1999-11-17 18:22:56 Singular Exp $ */
+/* $Id: ring.h,v 1.43 1999-11-18 14:47:02 obachman Exp $ */
 
 /* includes */
@@ -49 +49 @@
 
 idhdl  rFindHdl(ring r, idhdl n, idhdl w);
-void   rDInit();
 int rOrderName(char * ordername);
 char * rOrdStr(ring r);
@@ -69 +68 @@
 #define ABS(x) ((x) < 0 ? (-(x)) : (x))
 #endif
+
+BOOLEAN rRing_is_Homog(ring r=currRing);
 
 inline BOOLEAN rField_is_Zp(ring r=currRing)