Changeset 518620 in git for libfac

Timestamp:

Jun 19, 2001, 5:29:04 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

a29d092aead668e4b42f61b65a02c917cba27025

Parents:

b6bd558c32f6b1ed1f45d9a2ab9d560c970244e5

Message:

*hannes: optim.


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

File:

• libfac/factor/helpstuff.cc (modified) (10 diffs)

libfac/factor/helpstuff.cc

@@ -2 +2 @@
 ////////////////////////////////////////////////////////////
 // emacs edit mode for this file is -*- C++ -*-
-// static char * rcsid = "$Id: helpstuff.cc,v 1.3 1997-09-12 07:19:56 Singular Exp $";
+// static char * rcsid = "$Id: helpstuff.cc,v 1.4 2001-06-19 15:29:04 Singular Exp $";
 ////////////////////////////////////////////////////////////
 // FACTORY - Includes
@@ -11 +11 @@
 #include "helpstuff.h"
 
-bool 
+bool
 mydivremt ( const CanonicalForm& f, const CanonicalForm& g, CanonicalForm& a, CanonicalForm& b ){
   bool retvalue;
@@ -51 +51 @@
     if ( copy.factor() == TheFactor.factor() )
       exp += copy.exp();
-    else 
+    else
       Outputlist.append(copy);
   }
@@ -74 +74 @@
 Powerup( const int base , const int exp){
   int retvalue=1;
-  if ( exp == 0 )  return retvalue ; 
+  if ( exp == 0 )  return retvalue ;
   else for ( int i=1 ; i <= exp; i++ ) retvalue *= base ;
 
@@ -90 +90 @@
 // modpower: the real work is done here; called by mod_power //
 ///////////////////////////////////////////////////////////////
-static void 
-modpower( const CanonicalForm & f, int k , int td, 
-          const CanonicalForm & t, CanonicalForm & result){
+static void
+modpower( const CanonicalForm & f, int k , int td,
+          const CanonicalForm & t, CanonicalForm & result){
 
   if ( td >= k ) return;
@@ -103 +103 @@
 }
 
-CanonicalForm 
+CanonicalForm
 mod_power( const CanonicalForm & f, int k, int levelU){
   CanonicalForm result,dummy;
@@ -128 +128 @@
 // Return the deg of F in the Variables x_1,..,x_(levelF-1)  //
 ///////////////////////////////////////////////////////////////
-int 
+int
 subvardegree( const CanonicalForm & F, int levelF ){
   int n=0,m=degree(F,levelF),newn=0;
@@ -142 +142 @@
 // Change poly:  x_i <- x_i +- a_i    for i= 1,..,level(f)-1 //
 ///////////////////////////////////////////////////////////////
-CanonicalForm 
+CanonicalForm
 change_poly( const CanonicalForm & f , const SFormList & Substitutionlist ,int directionback ){
   CanonicalForm F=f,g,k;
@@ -153 +153 @@
   // ==> g = x_i ; k = a_i
     level_i=level(i.getItem().factor());
-    g = power( 
-                       Variable(level_i),1
-                       ); 
+    g = power(
+                       Variable(level_i),1
+                       );
     k= i.getItem().exp();
-    if ( directionback ){
+    if ( directionback )
+    {
       if ( degree(F, level_i) != 0 )
-        F=F(g-k, level(i.getItem().factor())); // x_i <-- x_i - a_i
+        F=F(g-k, level_i /*level(i.getItem().factor())*/); // x_i <-- x_i - a_i
     }
-    else{
+    else
+    {
       if ( degree(F, level_i) != 0 )
-        F=F(g+k, level(i.getItem().factor())); // x_i <-- x_i +a_i
+        F=F(g+k, level_i /*level(i.getItem().factor())*/); // x_i <-- x_i +a_i
     }
   }
@@ -173 +175 @@
 /*
 $Log: not supported by cvs2svn $
+Revision 1.3  1997/09/12 07:19:56  Singular
+* hannes/michael: libfac-0.3.0
+
 Revision 1.3  1997/04/25 22:20:45  michael
 Version for libfac-0.2.1