Changeset cf29809 in git for Singular/ideals.cc

Timestamp:

Jun 30, 1997, 2:31:44 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c404887f96dfef9cbd021add3ee8d350244f6087

Parents:

7adb5028d58cd523bb79d18cb12bbde01aa25097

Message:

* hannes: changes to manual suggested by Christian Gorzel
       (doc/singular.doc)
       added libs of Martin Lamm (LIB/HNPuiseux.lib LIB/primitiv.lib)
       det(intmat) yields an error if m is not a square matrix
       minor(m,i) yields an error if i<=0
       minor optimization in error checking code of det/minor
       (clapsing.cc ideals.cc iparith.cc)


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

File:

• Singular/ideals.cc (modified) (4 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.9 1997-06-17 09:44:22 Singular Exp $ */
+/* $Id: ideals.cc,v 1.10 1997-06-30 12:31:40 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1930 +1930 @@
     ideal I=idInit(1,1);
     I->m[0]=pOne();
-    return I; 
+    return I;
   }
   if (deg == 1)
@@ -2158 +2158 @@
 ideal idMinors(matrix a, int ar)
 {
+  if(ar<=0)
+  {
+    Werror("%d-th minor ",ar);
+    return NULL;
+  }
   int     i,j,k,size;
   int *rowchoise,*colchoise;
@@ -2940 +2945 @@
     for (j=IDELEMS(res)-1;j>=0;j--)
     {
-      if ((res->m[j]!=NULL) && (pIsConstantComp(res->m[j])) && 
+      if ((res->m[j]!=NULL) && (pIsConstantComp(res->m[j])) &&
            (pNext(res->m[j])==NULL))
       {