summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2017-08-13 13:32:18 -0400
committerDavid Thompson <dthompson2@worcester.edu>2017-09-13 21:16:30 -0400
commit5e5c0ac2c3f80f14428c19293773245a8477aaaf (patch)
tree9a473e52a032081af343a2461eb3bdd8f68ed498
parent49565d13e9da2d68ef66dcf1573611725ef24935 (diff)
math: Add cotangent function.
* chickadee/math.scm (cotan): New procedure.
-rw-r--r--chickadee/math.scm5
-rw-r--r--doc/api.texi4
2 files changed, 9 insertions, 0 deletions
diff --git a/chickadee/math.scm b/chickadee/math.scm
index e9ebc6d..b695e92 100644
--- a/chickadee/math.scm
+++ b/chickadee/math.scm
@@ -18,6 +18,7 @@
(define-module (chickadee math)
#:export (pi
pi/2
+ cotan
square
clamp
min
@@ -28,6 +29,10 @@
(define pi 3.14159265358979323846)
(define pi/2 (/ pi 2.0))
+(define-inlinable (cotan z)
+ "Return the cotangent of Z."
+ (/ 1.0 (tan z)))
+
(define-inlinable (square x)
(* x x))
diff --git a/doc/api.texi b/doc/api.texi
index f5a2400..32a797b 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -429,6 +429,10 @@ approximation that is ``good enough.''
Half of @var{pi}.
@end defvar
+@deffn {Procedure} cotan @var{z}
+Return the cotangent of @var{z}.
+@end deffn
+
@node Vectors
@subsection Vectors