1 ; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
2 (in-package #:strictmath)
4 (defun to-radians (deg)
9 DEG: A double representing the angle in degrees
10 RAD: A double representing the angle in radians
14 TO-RADIANS returns the radians equivalent of the angle passed in, in
20 (defun decode-float64 (x)
22 ((i (ieee-floats:encode-float64 x)))
25 (logand (ieee-floats:encode-float64 1.5707963267341256d0) #x00000000ffffffff))))
27 (defun encode-float64 (y1 y2)
28 (ieee-floats:decode-float64 (+ (ash y1 32) y2)))
30 (defun float64-abs (x)