Averages/Simple moving average: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 678:
return 0;
}</lang>
=={{header|C sharp|C#}}==
{{works with|C sharp|C#|3}}
<lang csharp>using System;
using System.Collections.Generic;
using System.Linq;
namespace SMA {
class Program {
static void Main(string[] args) {
var nums = Enumerable.Range(1, 5).Select(n => (double)n);
nums = nums.Concat(nums.Reverse());
var sma3 = SMA(3);
var sma5 = SMA(5);
foreach (var n in nums) {
Console.WriteLine("{0} (sma3) {1,-16} (sma5) {2,-16}", n, sma3(n), sma5(n));
}
}
static Func<double, double> SMA(int p) {
Queue<double> s = new Queue<double>(p);
return (x) => {
if (s.Count >= p) {
s.Dequeue();
}
s.Enqueue(x);
return s.Average();
};
}
}
}</lang>
{{out}}
<pre>
1 (sma3) 1 (sma5) 1
2 (sma3) 1.5 (sma5) 1.5
3 (sma3) 2 (sma5) 2
4 (sma3) 3 (sma5) 2.5
5 (sma3) 4 (sma5) 3
5 (sma3) 4.66666666666667 (sma5) 3.8
4 (sma3) 4.66666666666667 (sma5) 4.2
3 (sma3) 4 (sma5) 4.2
2 (sma3) 3 (sma5) 3.8
1 (sma3) 2 (sma5) 3
</pre>
=={{header|C++}}==
Line 783 ⟶ 832:
}
</lang>
=={{header|Clojure}}==
Line 1,715:
f(2); # 3
f(1); # 2</lang>
=={{header|Go}}==
<lang go>package main
Line 2,358 ⟶ 2,359:
end function
</lang>
=={{header|Logo}}==
Although Logo does not support closures, some varieties of Logo support enough metaprogramming to accomplish this task.
Line 2,510:
num: 41 sma3: 62.333333 sma5: 47
num: 94 sma3: 61 sma5: 64.2</pre>
=={{header|NetRexx}}==
Line 3,118 ⟶ 3,117:
n->if(sma_i++>#sma_v,sma_v[sma_i=1]=n;0,sma_v[sma_i]=n;0)+sum(i=1,#sma_v,sma_v[i])/#sma_v
};</lang>
=={{header|Pascal}}==
{{works with|Free Pascal}}
Line 3,215:
real 0m0.780s { 64-Bit }</pre>
=={{header|Perl}}==
Line 3,242 ⟶ 3,243:
append 1 --> sma = 1.00 (with period 3)
append 2 --> sma = 1.50 (with period 3)
append 3 --> sma = 2.00 (with period 3)
append 2 --> sma = 2.33 (with period 3)
Line 3,685 ⟶ 3,659:
(values (sma3 i) (sma5 i)))
</lang>
=={{header|Raku}}==
(formerly Perl 6)
{{works with|Rakudo|2016.08}}
<lang perl6>sub sma-generator (Int $P where * > 0) {
sub ($x) {
state @a = 0 xx $P;
@a.push($x).shift;
@a.sum / $P;
}
}
# Usage:
my &sma = sma-generator 3;
for 1, 2, 3, 2, 7 {
printf "append $_ --> sma = %.2f (with period 3)\n", sma $_;
}</lang>
{{out}}
<pre>
append 1 --> sma = 0.33 (with period 3)
append 2 --> sma = 1.00 (with period 3)
append 3 --> sma = 2.00 (with period 3)
append 2 --> sma = 2.33 (with period 3)
append 7 --> sma = 4.00 (with period 3)
</pre>
=={{header|REXX}}==
Line 3,950 ⟶ 3,952:
num, ma3 << num, ma5 <<num
end</lang>
=={{header|Run Basic}}==
<lang runbasic>data 1,2,3,4,5,5,4,3,2,1
dim sd(10) ' series data
global sd ' make it global so we all see it
for i = 1 to 10:read sd(i): next i
x = sma(3) ' simple moving average for 3 periods
x = sma(5) ' simple moving average for 5 periods
function sma(p) ' the simple moving average function
print "----- SMA:";p;" -----"
for i = 1 to 10
sumSd = 0
for j = max((i - p) + 1,1) to i
sumSd = sumSd + sd(j) ' sum series data for the period
next j
if p > i then p1 = i else p1 = p
print sd(i);" sma:";p;" ";sumSd / p1
next i
end function</lang>
<pre>----- SMA:3 -----
1 sma:3 1
2 sma:3 1.5
3 sma:3 2
4 sma:3 3
5 sma:3 4
5 sma:3 4.6666665
4 sma:3 4.6666665
3 sma:3 4
2 sma:3 3
1 sma:3 2
----- SMA:5 -----
1 sma:5 1
2 sma:5 1.5
3 sma:5 2
4 sma:5 2.5
5 sma:5 3
5 sma:5 3.79999995
4 sma:5 4.1999998
3 sma:5 4.1999998
2 sma:5 3.79999995
1 sma:5 3</pre>
=={{header|Rust}}==
===Vector Based===
Line 4,058 ⟶ 4,104:
Number: 1 | Average: 3
</pre>
=={{header|Scala}}==
Line 4,162 ⟶ 4,165:
(1 3/2 2 3 4 14/3 14/3 4 3 2)
</pre>
=={{header|Sidef}}==
Line 4,480 ⟶ 4,482:
9 3,00000 3,80000
10 2,00000 3,00000</pre>
=={{header|VBScript}}==
<lang vb>data = "1,2,3,4,5,5,4,3,2,1"
| |||