Changeset 56f7c5 in git

Timestamp:

Apr 23, 1997, 2:14:34 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f3d535f3bb59ff8df4ded77b469f98fa6dfc8cfa

Parents:

a2c0302ed0c04a2eb249ea935b1f9aac811c5717

Message:

* hannes: fixed error in factorize: constant factor was wrong in char 0


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

File:

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

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.3 1997-04-09 12:19:40 Singular Exp $
+// $Id: clapsing.cc,v 1.4 1997-04-23 12:14:34 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -282 +282 @@
   On(SW_SYMMETRIC_FF);
   CFFList L;
+  number N=NULL;
+
   if ( (nGetChar() == 0) || (nGetChar() > 1) )
   {
@@ -287 +289 @@
     if (nGetChar()==0) /* Q */
     {
-      pContent(f);
+      if ((with_exps!=0)&&(f!=NULL))
+      {
+        N=nCopy(pGetCoeff(f));
+        pContent(f);
+        number nn=nDiv(N,pGetCoeff(f));
+        nDelete(&N);
+        N=nn;
+      }  
     }
     CanonicalForm F( convSingPClapP( f ) );
@@ -374 +383 @@
       }
     }
+    if (N!=NULL) 
+    {
+      pMultN(res->m[0],N);
+      nDelete(&N);
+    }  
     // delete constants
     if ((with_exps!=0) && (res!=NULL))