diff options
Diffstat (limited to 'chickadee')
| -rw-r--r-- | chickadee/math.scm | 5 |
1 files changed, 5 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)) |