Cumulative standard deviation: Difference between revisions
Content added Content deleted
(Added PicoLisp) |
|||
Line 1,004: | Line 1,004: | ||
end std_dev; |
end std_dev; |
||
</lang> |
</lang> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(scl 2) |
|||
(de stdDev () |
|||
(let Data NIL |
|||
(curry (Data) (N) |
|||
(push 'Data N) |
|||
(let (Len (length Data) M (*/ (apply + Data) Len)) |
|||
(sqrt |
|||
(*/ |
|||
(sum |
|||
'((N) (*/ (- N M) (- N M) 1.0)) |
|||
Data ) |
|||
1.0 |
|||
Len ) |
|||
T ) ) ) ) ) |
|||
(let Fun (stdDev) |
|||
(for N (2.0 4.0 4.0 4.0 5.0 5.0 7.0 9.0) |
|||
(prinl (format N *Scl) " -> " (format (Fun N) *Scl)) ) )</lang> |
|||
Output: |
|||
<pre>2.00 -> 0.00 |
|||
4.00 -> 1.00 |
|||
4.00 -> 0.94 |
|||
4.00 -> 0.87 |
|||
5.00 -> 0.98 |
|||
5.00 -> 1.00 |
|||
7.00 -> 1.40 |
|||
9.00 -> 2.00</pre> |
|||
=={{header|PowerShell}}== |
=={{header|PowerShell}}== |