Changeset ca41246 in git for Singular/LIB/general.lib

Timestamp:

Apr 11, 2002, 4:46:54 PM (22 years ago)

Author:

Eric Westenberger <westenb@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6d37e82849724a2ee9462403f0b027ac1d23c175

Parents:

6246289a407013267ca92abd09e79c6a44aba2b6

Message:

*westenb: added proc absValue


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

File:

• Singular/LIB/general.lib (modified) (3 diffs)

Singular/LIB/general.lib

@@ -1 +1 @@
 //GMG, last modified 18.6.99
 //anne, added deleteSublist and watchdog 12.12.2000
-///////////////////////////////////////////////////////////////////////////////
-version="$Id: general.lib,v 1.41 2001-11-05 16:05:48 pfister Exp $";
+//eric, added absValue 11.04.2002
+///////////////////////////////////////////////////////////////////////////////
+version="$Id: general.lib,v 1.42 2002-04-11 14:46:54 westenb Exp $";
 category="General purpose";
 info="
@@ -10 +11 @@
  A_Z(\"a\",n);          string a,b,... of n comma separated letters
  ASCII([n,m]);          string of printable ASCII characters (number n to m)
+ absValue(c);           absolute value of c
  binomial(n,m[,../..]); n choose m (type int), [type string/type number]
  deleteSublist(iv,l);   delete entries given by iv from list l
@@ -135 +137 @@
    ASCII(42);
    ASCII(32,126);
+}
+///////////////////////////////////////////////////////////////////////////////
+
+proc absValue(def c)
+"USAGE:  absValue(c); c int, number or poly 
+RETURN:  absValue(c); the absolute value of c
+NOTE:    absValue(c)=c if c>=0; absValue=-c if c<=0.
+@*       So the function can be applied to any type, for which comparison
+@*       operators are defined. 
+SEE ALSO: boolean expressions
+EXAMPLE: example absValue; shows an example
+"
+{
+  if (c>=0) { return(c); }
+  else { return(-c); }
+}
+example
+{ "EXAMPLE:"; echo = 2;
+   ring r1 = 0,x,dp;
+   absValue(-2002);
+
+   poly f=-4;
+   absValue(f);
 }
 ///////////////////////////////////////////////////////////////////////////////