Changeset d8932ed in git for kernel/clapsing.cc

Timestamp:

Feb 17, 2004, 6:40:33 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '873fc1222e995d7cb33f79d8f1792ce418c8c72c')

Children:

c229324983bbffba788eee2e34c2f5428261bb0f

Parents:

ae020358246b7e3d43dad14eb92a05dc30c985f1

Message:

*hannes: v2-0


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

File:

• kernel/clapsing.cc (modified) (5 diffs)

kernel/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.1.1.1 2003-10-06 12:15:50 Singular Exp $
+// $Id: clapsing.cc,v 1.2 2004-02-17 17:40:33 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -781 +781 @@
         else
         {
-          L = factorize( F, a );
+          L = factorize( G, a );
         }
 #endif
@@ -789 +789 @@
     {
       CanonicalForm F( convSingTrPClapP( f ) );
-      if ((rField_is_Q_a())&&(currRing->minpoly!=NULL))
-      {
-        WarnS("factorization may be incomplete");
+      if (rField_is_Q_a())
+      {
         L = factorize( F );
       }
@@ -798 +797 @@
 #ifdef HAVE_LIBFAC_P
         L = Factorize( F );
+        //L = factorize( F );
 #else
         goto notImpl;
@@ -869 +869 @@
           else if (i!=0)
           {
+            while ((v!=NULL) && ((*v)!=NULL) && ((**v)[i]>1))
+            {
+              res->m[0]=pMult(res->m[0],pCopy(res->m[i]));
+              (**v)[i]--;
+            }
             res->m[0]=pMult(res->m[0],res->m[i]);
             res->m[i]=NULL;