Anonymous user
Averages/Mean angle: Difference between revisions
→{{header|Common Lisp}}
m (made R solution just submitted by me slightly more general) |
|||
Line 373:
(defun degrees (angle)
(*
(defun mean-angle (angles)
Line 382:
(loop for angles in '((350 10) (90 180 270 360) (10 20 30))
do (format t "~&The mean angle of ~a is ~$°." angles (mean-angle angles)))
;; or using complex numbers (cis and phase)
(defun mean-angle-2 (angles)
(degrees (phase (reduce #'+ angles :key (lambda (deg) (cis (radians deg)))))))
</lang>
{{out}}
<pre>The mean angle of (350 10) is -0.00°.
|