博途中如何实现数值的平均值

我想实现15个采集数值的平均数，采集15次之后，第16次进来，第一次的就没有了，这样的移位计算。如何实现呢？

创建一个0...14数组A，标志位N，总值B，读取值c，采集标志位d

IF d then

  B:=B-A[n];

  B:=B+c;

  A[n]:=c;

  n:=n+1;

  If n:=15 then

    n:=0;

  End_if;

End_if;

平均值直接把B除15就可以了。

在右侧计算里面找下，有现成的块

 用一下这个指令

MOVE_BLK：块移动

扩展功能块，需要下载。我记得有个FIFO指令。

FUNCTION_BLOCK "Avg"

VERSION : 0.1

   VAR_INPUT 

      value : Real;

      reset : Bool;

   END_VAR

   VAR_OUTPUT 

      avgValue : Real;

   END_VAR

   VAR 

      statCache : Array[0..#MAX_INDEX] of Real;

      statCacheIndex : Int;

      statIndex : Int;

      statLast : Real;

      statSum : Real;

      statAvg : Real;

   END_VAR

   VAR_TEMP 

      i : Int;

   END_VAR

   VAR CONSTANT 

      MAX_INDEX : Int := 14;

   END_VAR

BEGIN

IF #reset THEN //初始化

  FOR #i := 0 TO #MAX_INDEX DO

    #statCache[#i] := 0;

  END_FOR;

  #statCacheIndex := 0;

  #statIndex := 0;

  #statLast := 0;

  #statSum := 0;

  #statAvg := 0;

ELSIF #value <> #statLast THEN //如果值改变

  IF #statCacheIndex < #MAX_INDEX THEN //缓存未满

    #statCache[#statCacheIndex] := #value;

    #statCacheIndex += 1;

  ELSE //缓存已满

    #statCache[#statIndex] := #value;

    #statIndex += 1;

    #statIndex := #statIndex MOD #MAX_INDEX;

    #statSum := 0;

    FOR #i := 0 TO #MAX_INDEX DO

      #statSum += #statCache[#i];

    END_FOR;

    #statAvg := #statSum / #MAX_INDEX;

  END_IF;

END_IF;

#statLast := #value;

#avgValue := #statAvg;

END_FUNCTION_BLOCK

Avg.scl.zip