Changeset b5b60f in git

Timestamp:

Feb 10, 1999, 3:30:42 PM (25 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

8fefd9a73cb2587c8343e8b511c2fd41f9574eb1

Parents:

b1583218885416b88ae2f7c90eafb08541bc5e0a

Message:

Aenderung in res fuer length(res)<nvars(basering) (Bsp. Klaus)


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

File:

• Singular/LIB/standard.lib (modified) (2 diffs)

Singular/LIB/standard.lib

@@ -1 @@
-// $Id: standard.lib,v 1.26 1998-10-15 11:46:10 obachman Exp $
+// $Id: standard.lib,v 1.27 1999-02-10 14:30:42 siebert Exp $
 //////////////////////////////////////////////////////////////////////////////
 
-version="$Id: standard.lib,v 1.26 1998-10-15 11:46:10 obachman Exp $";
+version="$Id: standard.lib,v 1.27 1999-02-10 14:30:42 siebert Exp $";
 info="
 LIBRARY: standard.lib   PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
@@ -414 +414 @@
    if(homog(m)==1)
    {
-      resolution re=lres(m,i);
-      if(size(#)>2)
+      resolution re;
+      if ((i==0) or (i>=nvars(basering)))
       {
-         re=minres(re);
+        re=lres(m,i);
+        if(size(#)>2)
+        {
+           re=minres(re);
+        }
+      }
+      else
+      {
+        if(size(#)>2)
+        {
+          re=mres(m,i);
+        }
+        else
+        {
+          re=sres(std(m),i);
+        }
       }
       return(re);