Changeset cc3e5e in git

Timestamp:

Jul 8, 1996, 10:17:22 AM (27 years ago)

Author:

Rüdiger Stobbe <stobbe@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

d675c7716d78a6d5c5238c8820480fc2f09a860e

Parents:

995f1cc5ea98223893365bb03608bc85b99ade76

Message:

"New function compress( f, g, M, N ) that maps the common variables to be
the ones with the lowest level.
"


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

Location:

factory

Files:

• cf_map.cc (modified) (3 diffs)
• cf_map.h (modified) (3 diffs)

factory/cf_map.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: cf_map.cc,v 1.0 1996-05-17 10:59:44 stobbe Exp $
+// $Id: cf_map.cc,v 1.1 1996-07-08 08:17:22 stobbe Exp $
 
 /*
 $Log: not supported by cvs2svn $
+Revision 1.0  1996/05/17 10:59:44  stobbe
+Initial revision
+
 */
 
@@ -10 +13 @@
 #include "cf_map.h"
 #include "cf_iter.h"
+#include "templates/functions.h"
 
 
@@ -138 +142 @@
 }
 
+void compress ( const CanonicalForm & f, const CanonicalForm & g, CFMap & M, CFMap & N )
+{
+    int n = tmax( f.level(), g.level() );
+    int i, k, m;
+    int * degsf = new int[n+1];
+    int * degsg = new int[n+1];
+
+    for ( i = 0; i <= n; i++ ) {
+        degsf[i] = degsg[i] = 0;
+    }
+    degsf = degrees( f, degsf );
+    degsg = degrees( g, degsg );
+    i = 1; k = 1; m = n;
+    while ( i <= n ) {
+        if ( degsf[i] > 0 && degsg[i] > 0 ) {
+            if ( i != k ) {
+                M.newpair( Variable(i), Variable(k) );
+                N.newpair( Variable(k), Variable(i) );
+            }
+            k++;
+        }
+        else {
+            M.newpair( Variable(i), Variable(m) );
+            N.newpair( Variable(m), Variable(i) );
+            m--;
+        }
+        i++;
+    }
+    delete [] degsf;
+    delete [] degsg;
+}
+
 // static functions
 

factory/cf_map.h

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: cf_map.h,v 1.0 1996-05-17 10:59:38 stobbe Exp $
+// $Id: cf_map.h,v 1.1 1996-07-08 08:17:22 stobbe Exp $
 
 #ifndef INCL_CF_MAP_H
@@ -7 +7 @@
 /*
 $Log: not supported by cvs2svn $
+Revision 1.0  1996/05/17 10:59:38  stobbe
+Initial revision
+
 */
 
@@ -56 +59 @@
 CanonicalForm compress ( const CanonicalForm & f, CFMap & m );
 void compress ( const CFArray & a, CFMap & M, CFMap & N );
+void compress ( const CanonicalForm & f, const CanonicalForm & g, CFMap & M, CFMap & N );
 
 /*ENDPUBLIC*/