Changeset 424e5c in git

Timestamp:

Sep 29, 1997, 6:07:28 PM (27 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

815bc0ff6567320e2b1f9f0547c94fb7f4075a94

Parents:

9fddd96f0126cdadd4279e51ed5e1800c898321a

Message:

	* cf_ops.cc (size( CF ), size( CF, Var )): new functions.
	  Declarations added.


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

File:

• factory/cf_ops.cc (modified) (2 diffs)

factory/cf_ops.cc

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: cf_ops.cc,v 1.7 1997-09-09 08:39:02 schmidt Exp $ */
+/* $Id: cf_ops.cc,v 1.8 1997-09-29 16:07:28 schmidt Exp $ */
 
 //{{{ docu
@@ -582 +582 @@
 }
 //}}}
+
+//{{{ int size ( const CanonicalForm & f, const Variable & v )
+//{{{ docu
+//
+// size() - count number of monomials of f with level higher
+//   or equal than level of v.
+//
+// Returns one if f is in an base domain.
+//
+//}}}
+int
+size ( const CanonicalForm & f, const Variable & v )
+{
+    if ( f.inBaseDomain() )
+        return 1;
+
+    int result = 0;
+    CFIterator i;
+    if ( f.mvar() < v )
+        // polynomials with level < v1 are counted as coefficients
+        return 1;
+    else {
+        // polynomials with level > v2 are not counted al all
+        for ( i = f; i.hasTerms(); i++ )
+            result += size( i.coeff(), v );
+        return result;
+    }
+}
+//}}}
+
+//{{{ int size ( const CanonicalForm & f )
+//{{{ docu
+//
+// size() - return number of monomials in f which are in an
+//   coefficient domain.
+//
+// Returns one if f is in an coefficient domain.
+//
+//}}}
+int
+size ( const CanonicalForm & f )
+{
+    if ( f.inCoeffDomain() )
+        return 1;
+    else {
+        int result = 0;
+        CFIterator i;
+        for ( i = f; i.hasTerms(); i++ )
+            result += size( i.coeff() );
+        return result;
+    }
+}
+//}}}