主题：模仿均线写法出现的错误

把楼主的程序解读一下，如下：

IF NOT(ISLASTBAR) THEN EXIT;//最后一个周期才执行以下语句
FOR J=1 TO DATACOUNT DO BEGIN
 if close>open then begin //如果最后一个周期收阳线，则把所有阳线累加起来
  S:=S+VAR1[J];
 end;
 if close<open then begin;//如果最后一个周期收阴线，则s=0
  S:=0;
 end;
 MMM[j]:S;
END

所以结果要么是0，要么是所有阳线之和，是个很大的数值也就不足为怪了，肯定无线实现楼主想要的效果

如果这样：

VARIABLE:S=0;
VAR1:=close>open;

mmm:0;
//为了加快运算速度，只有最后一个周期时才循环计算
IF NOT(ISLASTBAR) THEN EXIT;
FOR J=1 TO DATACOUNT DO BEGIN
 if close[j]>open[j] then begin
  S:=S+VAR1[J];
 end;
 if close[j]<open[j] then begin;
  S:=0;
 end;
MMM[j]:=S;
END;

经过测试，完全符合楼主要求