Update of /cvsroot/monetdb/MonetDB5/src/modules/kernel
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv18233/src/modules/kernel
Modified Files:
Tag: MonetDB_5-2
mmath.mx
Log Message:
added cotangent and fixed implementation of patindex
Index: mmath.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/kernel/mmath.mx,v
retrieving revision 1.35
retrieving revision 1.35.2.1
diff -u -d -r1.35 -r1.35.2.1
--- mmath.mx 13 Sep 2007 13:45:13 -0000 1.35
+++ mmath.mx 14 Dec 2007 07:51:32 -0000 1.35.2.1
@@ -85,6 +85,12 @@
comment "The tan(x) function returns the tangent of x,
where x is given in radians";
+command cot(x:flt) :flt
+address MATHunary_COTflt;
+command cot(x:dbl) :dbl
+address MATHunary_COTdbl
+comment "The cot(x) function returns the Cotangent of x,
+ where x is given in radians";
command cosh(x:flt) :flt
address MATHunary_COSHflt;
@@ -241,6 +247,7 @@
#define cos_unary(x, z) *z = cos(*x)
#define sin_unary(x, z) *z = sin(*x)
#define tan_unary(x, z) *z = tan(*x)
+#define cot_unary(x, z) *z = (1/tan(*x))
#define cosh_unary(x, z) *z = cosh(*x)
#define sinh_unary(x, z) *z = sinh(*x)
@@ -319,6 +326,7 @@
@:unop(_COS,cos)@
@:unop(_SIN,sin)@
@:unop(_TAN,tan)@
+@:unop(_COT,cot)@
@:unop(_COSH,cosh)@
@:unop(_SINH,sinh)@
@@ -525,6 +533,7 @@
@:unopM5(_COS,cos)@
@:unopM5(_SIN,sin)@
@:unopM5(_TAN,tan)@
+@:unopM5(_COT,cot)@
@:unopM5(_COSH,cosh)@
@:unopM5(_SINH,sinh)@
-------------------------------------------------------------------------
SF.Net email is sponsored by:
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services
for just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
