Commit bb6c5242 authored by Liam M. Healy's avatar Liam M. Healy

New function #'angle-greater-than

parent 11103f64
;; Angles by component parts.
;; Liam Healy Thu May 30 2002 - 11:46
;; Time-stamp: <2014-10-06 22:29:48EDT angle-component.lisp>
;; Time-stamp: <2017-11-22 15:05:50EST angle-component.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -21,7 +21,7 @@
(in-package :antik)
(export '(angle asine acosine atangent arise arun sine consine
rise run normalize-angle))
rise run normalize-angle angle-greater-than))
;;; Angles may be defined by "components", that is, trigonometric functions of
;;; the angle, halfplanes, etc. Components may be defined without the whole
......@@ -421,3 +421,7 @@
(antik:+ (funcall function (normalized angle))
(make-pq (whole-revolutions angle) 'revolution)))
|#
(defun angle-greater-than (angle greater-than)
"Find an equivalent angle that is greater than the greater-than angle."
(+ (normalize-angle (- angle greater-than) t) greater-than))
;; Functions on angles
;; Liam Healy Fri Mar 26 1999 - 13:48
;; Time-stamp: <2017-11-17 17:52:32EST angle.lisp>
;; Time-stamp: <2017-11-22 12:33:10EST angle.lisp>
;; Copyright 2011, 2013, 2014, 2017 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -36,7 +36,7 @@
(defun norm-denorm-angle (angle function &optional positive)
"Normalize an angle, process it, and denormalize it back to the
original cycle count. This is useful for e.g. Kepler's equation,
where the normalized angle is needed to for the algorithm to
where the normalized angle is needed for the algorithm to
converge properly, but the full cycles are needed for f & g functions."
(multiple-value-bind (normalized revs)
(normalize-angle angle positive)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment