Changeset 052e4f in git for libfac

Timestamp:

May 5, 2008, 4:54:29 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

039f1525452ab6cef5023eacbe02e7c220e25afb

Parents:

751bfd1896248f7cbfab7d7920a96d580dda7f3f

Message:

*hannes: switch representation and normalize in SqrFreeMV


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

File:

• libfac/factor/SqrFree.cc (modified) (4 diffs)

libfac/factor/SqrFree.cc

@@ -2 +2 @@
 ///////////////////////////////////////////////////////////////////////////////
 // emacs edit mode for this file is -*- C++ -*-
-/* $Id: SqrFree.cc,v 1.18 2008-04-08 16:19:10 Singular Exp $ */
+/* $Id: SqrFree.cc,v 1.19 2008-05-05 14:54:29 Singular Exp $ */
 static const char * errmsg = "\nYou found a bug!\nPlease inform singular@mathematik.uni-kl.de\n Please include above information and your input (the ideal/polynomial and characteristic) in your bug-report.\nThank you.";
 ///////////////////////////////////////////////////////////////////////////////
@@ -367 +367 @@
 {
   CanonicalForm g=icontent(r), f = r;
-  CFFList Outputlist, Outputlist2;
+  CFFList Outputlist, Outputlist2,tmpOutputlist;
 
   DEBINCLEVEL(CERR, "SqrFreeMV");
@@ -387 +387 @@
       {
         if (!mipo.isZero())
+        {
+          #if 1
+          Variable alpha=rootOf(mipo);
+          CanonicalForm ff=swapvar(f,mipo.mvar(),alpha);
+          tmpOutputlist=SqrFreeMV(ff,0);
+          ff=swapvar(f,alpha,mipo.mvar());
+          for ( CFFListIterator i=tmpOutputlist; i.hasItem(); i++ )
+          {
+            ff=i.getItem().factor();
+            ff /= ff.Lc();
+            ff=swapvar(ff,alpha,mipo.mvar());
+            Outputlist=myappend(Outputlist,CFFactor(ff,1));
+          }
+          #else
           Outputlist=myUnion(SqrFreed(f,mipo),Outputlist) ;
+          #endif
+        }
         else
           Outputlist=myUnion(SqrFreed(f),Outputlist) ;
@@ -439 +455 @@
 /*
 $Log: not supported by cvs2svn $
+Revision 1.18  2008/04/08 16:19:10  Singular
+*hannes: removed rcsid
+
 Revision 1.17  2008/03/18 17:46:15  Singular
 *hannes: gcc 4.2