Averages/Mean angle: Difference between revisions
added Scheme example
m (→{{header|zkl}}: reformat) |
(added Scheme example) |
||
Line 1,776:
println("Successfully completed without errors.")
}</lang>
=={{header|Scheme}}==
{{trans|Common Lisp}}
<lang scheme>
(import (srfi 1 lists)) ;; use 'fold' from library
(define (average l)
(/ (fold + 0 l) (length l)))
(define pi 3.14159265358979323846264338327950288419716939937510582097)
(define (radians a)
(* pi 1/180 a))
(define (degrees a)
(* 180 (/ 1 pi) a))
(define (mean-angle angles)
(let* ((angles (map radians angles))
(cosines (map cos angles))
(sines (map sin angles)))
(degrees (atan (average sines) (average cosines)))))
(for-each (lambda (angles)
(display "The mean angle of ") (display angles)
(display " is ") (display (mean-angle angles)) (newline))
'((350 10) (90 180 270 360) (10 20 30)))
</lang>
<pre>
The mean angle of (350 10) is -1.614809932057922E-15
The mean angle of (90 180 270 360) is -90.0
The mean angle of (10 20 30) is 19.999999999999996
</pre>
=={{header|Seed7}}==
|