Changeset 817626 in git

Timestamp:

Oct 18, 2005, 3:02:56 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

01e2dfd44b8e96e6877fa3a7c12a1a47582b931d

Parents:

425a9d0c53165e2ddeac88634c96d411e4da63ea

Message:

*lossen: removed undef switch 77, handle border cases


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

File:

• Singular/LIB/absfact.lib (modified) (5 diffs)

Singular/LIB/absfact.lib

@@ -1 @@
-version="$Id: absfact.lib,v 1.3 2005-09-27 16:52:54 Singular Exp $";
+version="$Id: absfact.lib,v 1.4 2005-10-18 13:02:56 Singular Exp $";
 category="Factorization";
 info="
@@ -342 +342 @@
         (denominator- and content-free) absolute factors of @code{p} equals 
         @code{p / absolute_factors[1][1]}.    
-SEE ALSO: factorize
+SEE ALSO: factorize, absPrimdecGTZ
 EXAMPLE: example absFactorize; shows an example
 "
@@ -400 +400 @@
           newvar=#[1];
         }
+      else 
+      {
+        newvar = "a";
+      }
     }
   else
     {
       newvar = "a";
+    }
+  if (newvar=="a")
+    {
       if(belongTo(newvar, lMP[2])||defined(a)){newvar = "b";}
       if(belongTo(newvar, lMP[2])||defined(b)){newvar = "c";}
@@ -496 +503 @@
           if(#[1]==77)
             {  // undocumented feature for Gerhard's absPrimdecGTZ
-              return(string(list(tmpf[2..size(tmpf)],newvar)));
+              if (size(tmpf)<2){ list abs_fac = list(var(n+1),poly(1)); }
+              else { list abs_fac=tmpf[2..size(tmpf)]; }
+              abs_fac=abs_fac,newvar;
+              return(string(abs_fac));
             }
         }
@@ -550 +560 @@
   setring(MP);
 
-  if(size(#)>0)
-  {
-    if(typeof(#[1])=="int")
-    {
-       if(#[1]==77)
-       {
-          return(s1);
-       }
-    }
-  }
   dbprint( printlevel-voice+3,"
 // 'absFactorize' created a ring, in which a list absolute_factors (the