Changeset c99fd4 in git for Singular/LIB/equising.lib

Timestamp:

Oct 6, 2008, 7:04:28 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

886b0dae50b58b9f8b0863c63abf2f0ddacf9a26

Parents:

100025a806c37776e35dd4b839e192304f203af8

Message:

*hannes/gmg: elim, select, nselect, select1


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

File:

• Singular/LIB/equising.lib (modified) (9 diffs)

Singular/LIB/equising.lib

@@ -1 @@
-version="$Id: equising.lib,v 1.17 2006-07-18 15:48:12 Singular Exp $";
+version="$Id: equising.lib,v 1.18 2008-10-06 17:04:26 Singular Exp $";
 category="Singularities";
 info="
@@ -854 +854 @@
   if (typ==1) // isEquising
   {
-    if(ideal(nselect(J,1,no_b))<>0)
+    if(ideal(nselect(J,1..no_b))<>0)
     {
       setring old_ring;
@@ -941 +941 @@
   if (typ==1) // isEquising
   {
-    if(ideal(nselect(J,1,no_b))<>0)
+    if(ideal(nselect(J,1..no_b))<>0)
     {
       setring old_ring;
@@ -1062 +1062 @@
         {
           if (defined(artin_bd)) { J=jet(Jnew,artin_bd-1); }
-          if(ideal(nselect(J,1,no_b))<>0)
+          if(ideal(nselect(J,1..no_b))<>0)
           {
             setring old_ring;
@@ -1077 +1077 @@
       {
         if (defined(artin_bd)) { J=jet(Jnew,artin_bd-1); }
-        if(ideal(nselect(J,1,no_b))<>0)
+        if(ideal(nselect(J,1..no_b))<>0)
         {
           setring old_ring;
@@ -1121 +1121 @@
   {
     if (defined(artin_bd)) { J=jet(Jnew,artin_bd-1); }
-    if(ideal(nselect(J,1,no_b))<>0)
+    if(ideal(nselect(J,1..no_b))<>0)
     {
       setring old_ring;
@@ -1173 +1173 @@
   }
 
-  Jtriv = nselect(Jtriv,1,no_b);
-  ideal J_no_b = nselect(J,1,no_b);
+  Jtriv = nselect(Jtriv,1..no_b);
+  ideal J_no_b = nselect(J,1..no_b);
   if (size(J) > size(J_no_b))
   {
@@ -1227 +1227 @@
       option(redSB);
       J=std(J);
-      J=nselect(J,1,no_b);
+      J=nselect(J,1..no_b);
 
       setring myRing;
       // back to "myRing"
 
-      J=nselect(J,1,no_b);
+      J=nselect(J,1..no_b);
       Jnew=imap(QQ,J);
 
@@ -1242 +1242 @@
     {
       J=std(J);
-      J=nselect(J,1,no_b);
+      J=nselect(J,1..no_b);
       if (defined(artin_bd)){ J=jet(J,artin_bd-1); }
     }