11 lines
257 B
Text
11 lines
257 B
Text
include sma.e
|
|
|
|
constant sma3 = new_sma(3)
|
|
constant sma5 = new_sma(5)
|
|
constant s = {1,2,3,4,5,5,4,3,2,1}
|
|
integer si
|
|
|
|
for i=1 to length(s) do
|
|
si = s[i]
|
|
printf(1,"%2g: sma3=%8g, sma5=%8g\n",{si,moving_average(sma3,si),moving_average(sma5,si)})
|
|
end for
|