Data update

Task/Averages-Root-mean-square/FutureBasic/averages-root-mean-square.basic

@@ -0,0 +1,19 @@
+double local fn QuadraticMean( array as CFArrayRef )
+  long count = len(array)
+  double sum = 0.0
+  for long i = 0 to count - 1
+    sum += dblval(array[i]) * dblval(array[i])
+  next
+end fn = sqr(sum/count)
+
+void local fn DoIt
+  CFMutableArrayRef array = fn MutableArrayNew
+  for long i = 1 to 10
+    MutableArrayAddObject( array, @(i) )
+  next
+  print @"RMS (1-10) = ";fn QuadraticMean(array)
+end fn
+
+fn DoIt
+
+HandleEvents