Data commit

Task/Averages-Simple-moving-average/TI-89-BASIC/averages-simple-moving-average-1.basic

@@ -0,0 +1,10 @@
+movinavg(list,p)
+Func
+  Local r, i, z
+
+  For i,1,dim(list)
+    max(i-p,0)→z
+    sum(mid(list,z+1,i-z))/(i-z)→r[i]
+  EndFor
+  r
+EndFunc

Task/Averages-Simple-moving-average/TI-89-BASIC/averages-simple-moving-average-2.basic

@@ -0,0 +1,11 @@
+movinav2(x_,v_)
+Prgm
+  If getType(x_)="STR" Then
+    {}→list
+    v_→p
+    Return
+  EndIf
+
+  right(augment(list,{x_}),p)→list
+  sum(list)/dim(list)→#v_
+EndPrgm