主题：1分钟周期引用3分钟周期的SMA，公式作不出来

FLY大哥，再请教下：

我已经改了1分钟周期调用3分钟周期的无未来SMA,代码如下：

INPUT:N(5,2,500);

variable:S3[3]=0;
VAR1:=C; Index:=0;
XBarpos:Barpos,linethick0;

Index:=if(mod(barpos,3)=0,3,mod(barpos,3));

For J=Index to Barpos Do begin
  If J=Index then S3[Index]:=VAR1[Index];
  else S3[Index]:=(S3[Index]*4+VAR1[J])/5;
  J:=J+2;
End

TSMA1:S3[Index],coloryellow;

但是，策略关系，我用的是逐K模式，然后用如上代码，因为是For循环，所以效率不高，如果图表4000根以上有延迟。

看了半天那个1分钟引用5分钟MA的贴，我琢磨把代码优化下，但没想出办法，原来用全局变量，也是想减少计算量，似乎不行。老师能帮我看看如何优化吗？