Jump to content

Cumulative standard deviation: Difference between revisions

Cumulative standard deviation (view source)

Revision as of 19:41, 8 August 2009

13 bytes removed ,  14 years ago
m
eliminate variable used in only one place
(add cl)
m (eliminate variable used in only one place)
Line 116:
 
(defun standard-deviation (samples)
(let ((lenmean (lengtharithmetic-average samples)))
(sqrt (* (mean/ 1.0d0 (arithmetic-averagelength samples)))
(sqrt (* (/ 1.0d0 len)
(reduce #'+ samples
:key (lambda (x)
(expt (- x mean) 2.0d0)))))))
 
(defun make-deviator ()
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/116322"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information