langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Averages-Simple-moving-average/PureBasic/averages-simple-moving-average.purebasic
+++ b/Task/Averages-Simple-moving-average/PureBasic/averages-simple-moving-average.purebasic
@ -0,0 +1,19 @@
+Procedure.d SMA(Number, Period=0)
+  Static P
+  Static NewList L()
+  Protected Sum=0
+  If Period<>0
+    P=Period
+  EndIf
+  LastElement(L())
+  AddElement(L())
+  L()=Number
+  While ListSize(L())>P
+    FirstElement(L())
+    DeleteElement(L(),1)
+  Wend
+  ForEach L()
+    sum+L()
+  Next
+  ProcedureReturn sum/ListSize(L())
+EndProcedure