Changeset 001a685 in git

Timestamp:

Feb 18, 2003, 12:09:25 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

eb5fcc81e0beea3c88366fa5ff87f41a7c103265

Parents:

6e86a45333661b0aa63b39e5aea92f1e2f113b3f

Message:

* hannes: alg_gcd(f,f'=0) get a special handling


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

File:

• libfac/charset/alg_factor.cc (modified) (3 diffs)

libfac/charset/alg_factor.cc

@@ -3 +3 @@
 // emacs edit mode for this file is -*- C++ -*-
 ////////////////////////////////////////////////////////////
-static char * rcsid = "$Id: alg_factor.cc,v 1.11 2002-10-24 17:22:21 Singular Exp $";
+static char * rcsid = "$Id: alg_factor.cc,v 1.12 2003-02-18 11:09:25 Singular Exp $";
 ////////////////////////////////////////////////////////////
 // FACTORY - Includes
@@ -661 +661 @@
  // cout << "algcd result:"  << Fgcd << endl;
   if ( Fgcd == 0 ) DEBOUTMSG(cerr, "WARNING: p'th root ?");
-  if ( degree(Fgcd, f.mvar()) > 0 ){
+  if (( degree(Fgcd, f.mvar()) > 0) && (!(f.deriv().isZero())) ){
     DEBOUTLN(cout, "Nontrivial GCD found of ", f);
     CanonicalForm Ggcd= divide(f, Fgcd,Astar);
@@ -744 +744 @@
 /*
 $Log: not supported by cvs2svn $
+Revision 1.11  2002/10/24 17:22:21  Singular
+* hannes: factoring in alg.ext., alg_gcd, NTL stuff
+
 Revision 1.10  2002/08/19 11:11:29  Singular
 * hannes/pfister: alg_gcd etc.