主题：请版主帮忙检验一小段代码

 

{统计当前收盘价是最近40个交易日中，多少个交易日内的最高收盘价}

 

RUNMODE:0;

 

IF BARPOS>40 THEN DO BEGIN

VARIABLE:HIGHN=0;

 

FOR K=1 TO 40 DO BEGIN
IF CLOSE[BARPOS]>=CLOSE[BARPOS-K] THEN  HIGHN:=HIGHN+1;
IF CLOSE[BARPOS]<CLOSE[BARPOS-K] THEN EXIT;
END

AA[BARPOS]:HIGHN,colorstick;

 

END

 

{按预期，显示出的AA[BARPOS]的取值应该是40以内，但实际计算出的数值却很大，查不出原因，请版主帮忙，谢谢。}