From 5e5c0ac2c3f80f14428c19293773245a8477aaaf Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 13 Aug 2017 13:32:18 -0400
Subject: math: Add cotangent function.

* chickadee/math.scm (cotan): New procedure.
---
 chickadee/math.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'chickadee')

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))
 
-- 
cgit v1.2.3