Cumulative standard deviation: Difference between revisions

Content added Content deleted
(Added Erlang)
Line 863: Line 863:
loop_calculate( Ns ) ->
loop_calculate( Ns ) ->
Average = loop_calculate_average( Ns ),
Average = loop_calculate_average( Ns ),
Differences = [math:pow(X - Average, 2) || X <- Ns],
math:sqrt( loop_calculate_average([math:pow(X - Average, 2) || X <- Ns]) ).
math:sqrt( loop_calculate_average(Differences) ).


loop_calculate_average( Ns ) -> lists:sum( Ns ) / erlang:length( Ns ).
loop_calculate_average( Ns ) -> lists:sum( Ns ) / erlang:length( Ns ).