以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  当日高点到当前的位置  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=165296)
--  作者：独钓_寒江雪
--  发布时间：2018/8/31 14:25:12
--  当日高点到当前的位置
在分k线图表中，求当日最高点到当前的k线根数的代码，满同时满足以下条件：
1.如果当前是最高点，则以当根k之前的当日最高点为准
2.如果之前有多根k线形成了当日的最高点（这几根k的最高价都为当日的最高点，是相等的），则以最先出现的k线为准
--  作者：FireScript
--  发布时间：2018/8/31 15:01:51
--  
VARIABLE:maxH:=0,mark:=0;//mark标记最高点位置，maxH记录最高值

if TODAYBAR=1 then begin //当日第一个K初始化
maxH:=h;
mark:=0;
end

if h>maxH then
begin
maxH:=h;
mark:=1;
end
else if then mark:=0;

len:=BARSLAST(mark=1);//获取最高价距离现在位置

result:if(TODAYBAR=1 or BARPOS=1,0,len);

在连续H递增的时候，1 不好处理。
原本hhvbars 可以直接获取最高价位置，但是这个函数返回的是最近的最高价位置。