Changeset 041dbdc in git for factory

Timestamp:

Mar 12, 1998, 11:26:47 AM (26 years ago)

Author:

Jens Schmidt <schmidt@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

e7232f5348c7b68d627b5f9df4f8cceceba610c9

Parents:

97194345e85a42bf5f6feac310528de922da216a

Message:

	* cf_algorithm.cc (cden, common_den): renamed to
	  `internalBCommonDen()' and `bCommonDen()', resp.  Declarations
	  adapted. All references changed.

	* cf_algorithm.h (abs): function `abs()' moved from
	  `canonicalform.h' to `cf_algorithm.h'.  All referring files
	  include `cf_algorithm.h'.

	* cf_algorithm.cc (maxNorm, euclideanNorm): new functions.
	  Declarations added.


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

File:

• factory/cf_algorithm.h (modified) (4 diffs)

factory/cf_algorithm.h

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: cf_algorithm.h,v 1.9 1998-01-16 08:56:34 schmidt Exp $ */
+/* $Id: cf_algorithm.h,v 1.10 1998-03-12 10:26:47 schmidt Exp $ */
 
 #ifndef INCL_CF_ALGORITHM_H
@@ -11 +11 @@
 // This header file collects declarations of most of the
 // functions in factory which implement higher level algorithms
-// on canonical forms (factorization, gcd, etc.).
+// on canonical forms (factorization, gcd, etc.) and declarations
+// of some low level mathematical functions, too (absolute vale,
+// euclidean norm, etc.).
 //
 // This header file corresponds to:
@@ -34 +36 @@
 void psqr ( const CanonicalForm & f, const CanonicalForm & g, CanonicalForm & q, CanonicalForm & r, const Variable & x );
 
-CanonicalForm common_den ( const CanonicalForm & f );
+CanonicalForm bCommonDen ( const CanonicalForm & f );
 
 bool divides ( const CanonicalForm & f, const CanonicalForm & g );
+
+CanonicalForm maxNorm ( const CanonicalForm & f );
+
+CanonicalForm euclideanNorm ( const CanonicalForm & f );
 //}}}
 
@@ -67 +73 @@
 //}}}
 
+//{{{ inline CanonicalForm abs ( const CanonicalForm & f )
+//{{{ docu
+//
+// abs() - return absolute value of `f'.
+//
+// The absolute value is defined in terms of the function
+// `sign()'.  If it reports negative sign for `f' than -`f' is
+// returned, otherwise `f'.
+//
+// Most useful for integers and rationals.  May be used to
+// sign-normalize the leading coefficient of arbitrary
+// polynomials, too.
+//
+//}}}
+inline CanonicalForm
+abs ( const CanonicalForm & f )
+{
+    // it is not only more general using `sign()', it is faster, too
+    if ( sign( f ) < 0 )
+        return -f;
+    else
+        return f;
+}
+//}}}
+
 /*ENDPUBLIC*/