15 lines
564 B
Common Lisp
15 lines
564 B
Common Lisp
(require 'calendar)
|
|
|
|
(setq biorhythm-birthdate '(3 16 1953))
|
|
|
|
(defun biorhythm ()
|
|
"Show today's biorhythm."
|
|
(interactive)
|
|
(let* ((diff (abs (- (string-to-number (calendar-astro-date-string
|
|
biorhythm-birthdate)) (string-to-number
|
|
(calendar-astro-date-string)))))
|
|
(rhyt '(23 28 33))
|
|
(perc (mapcar (lambda (x) (round (* 100 (sin
|
|
(* 2 pi diff (/ 1.0 x)))))) rhyt)))
|
|
(message "age: %i physical: %i%% emotional: %i%% intellectual: %i%%"
|
|
diff (car perc) (cadr perc) (caddr perc))))
|