Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Sébastien Villemot
antik
Commits
86671c4e
Commit
86671c4e
authored
Dec 25, 2013
by
Liam M. Healy
Browse files
Merge branch 'multiple-systems' of
ssh://repo.or.cz/srv/git/antik
into multiple-systems
parents
f367a9c4
44969014
Changes
2
Show whitespace changes
Inline
Side-by-side
init/generic.lisp
View file @
86671c4e
;; Generic functions for generalized numbers
;; Liam Healy Tue Feb 9 1999 - 21:38
;; Time-stamp: <2013-1
1-27 10:36:44
EST generic.lisp>
;; Time-stamp: <2013-1
2-16 17:25:39
EST generic.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -231,6 +231,7 @@
(
signum
den
)
den
))))))
(
export
'return-zero
)
(
defgeneric
expt
(
num
exponent
)
(
:documentation
"Raise the number to the exponent."
)
(
:method
((
num
number
)
(
exponent
number
))
...
...
@@ -244,7 +245,10 @@
(
accept
()
:report
"Accept complex answer."
)
(
absolute-value
()
:report
"Take the absolute value of the argument and return a real."
(
setq
num
(
abs
num
)))))
(
setq
num
(
abs
num
)))
(
return-zero
()
:report
"Return zero."
(
return-from
expt
0.0
))))
(
cl:expt
num
exponent
)))
(
defgeneric
exp
(
num
)
...
...
physical-quantities/angle.lisp
View file @
86671c4e
;; Functions on angles
;; Liam Healy Fri Mar 26 1999 - 13:48
;; Time-stamp: <2013-
03-24 19:22:39ED
T angle.lisp>
;; Time-stamp: <2013-
12-16 17:48:14ES
T angle.lisp>
;; Copyright 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -20,9 +20,17 @@
(
in-package
:antik
)
(
export
'
(
norm-denorm-angle
angle-as-time
dms-angle
time-as-angle
angle-dms
write-dms
))
;;;;****************************************************************************
;;;; Basic angle definitions
;;;;****************************************************************************
(
setf
*radian*
(
make-pq
1
'radian
))
(
export
'
(
norm-denorm-angle
angle-as-time
dms-angle
time-as-angle
angle-dms
write-dms
))
(
defun
radian
(
angle
)
"The numerical value of the angle in radians."
(
antik::pq-magnitude
angle
))
;;; This will be obsolete
(
defun
norm-denorm-angle
(
angle
function
&optional
positive
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment