以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请版主帮忙检验一小段代码  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=7599)
--  作者：lilieddove
--  发布时间：2011/8/19 10:43:38
--  请版主帮忙检验一小段代码

 

{统计当前收盘价是最近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以内，但实际计算出的数值却很大，查不出原因，请版主帮忙，谢谢。}
--  作者：阿火
--  发布时间：2011/8/19 11:03:54
--  

这么麻烦干嘛

hhvbars这个函数就是你要的功能