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

VARIABLE:I=0,S=0;
VAR1:=close>open; //变量申明
//为了加快运算速度，只有最后一个周期时才循环计算
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;
 end;
 MMM[j]:S;
END;

想实现目的：每出一根阳线记录数增加1，出阴数时记录数回零。

上面写的语句中的CLOSE<OPEN部分不起作用。

应该怎么写？？？

为什么if close<open then 没有作用呢？？？CLOSE<OPEN的情况不存在？

CLOSE<OPEN 那么 S 回零。最终显示的结果应该不大于10才对，因为极少有十连阳的情况。

而上面的公式出来的结果是几百甚至上千，这是不可能的。