在可视K线窗口如何编写最高点与最后一根k线的最高点，画直线

代人发帖

请教：在可视K线窗口如何编写最高点与最后一根k线的最高点，画直线。请技术人员写一下代码。

技术009

[PEL] 复制代码

a:=SYSPARAM(2);//可视范围内第一个K的位置
b:=DATACOUNT;
cd:BARPOS>=a and h=refx(hhv(h,b-a+1),DATACOUNT-BARPOS);
DRAWLINE(cd , h,ISLASTBAR ,h ,0);

注意，只能在序列模式下运行。

技术009

低点稍微改下就行了。h改成l，hhv改成llv即可。

a:=SYSPARAM(2);//可视范围内第一个K的位置
b:=DATACOUNT;
cd1:BARPOS>=a and h=refx(hhv(h,b-a+1),DATACOUNT-BARPOS);
cd2:BARPOS>=a and l=refx(llv(l,b-a+1),DATACOUNT-BARPOS);
DRAWLINE(cd1 , h,ISLASTBAR ,h ,0);
DRAWLINE(cd2 , l,ISLASTBAR ,l ,0);

技术009

这个就不行了，画线的起点只能在历史K。

技术009

那就是可视范围内最高点 和 之后的次高点连线？

技术009

这样试下：

a:=SYSPARAM(2);//可视范围内第一个K的位置
b:=DATACOUNT;
cd1:BARPOS>=a and h=refx(hhv(h,b-a+1),DATACOUNT-BARPOS);
cd2:BARPOS>=a and l=refx(llv(l,b-a+1),DATACOUNT-BARPOS);
len1:=BARSLAST(cd1);
len2:=BARSLAST(cd2);
cd3:len1>0 and  h=refx(hhv(h,len1),DATACOUNT-BARPOS);
cd4:len2>0 and  l=refx(llv(l,len2),DATACOUNT-BARPOS);
DRAWLINE(cd1 , h,cd3 ,h ,0);
DRAWLINE(cd2 , l,cd4 ,l ,0);

技术009

代码是完整的。我本地都加载有效的。

技术009

技术009

你截下图我看下。

技术009

好像是你复制过程出现了一些问题。我这样贴给你你试下：

[PEL] 复制代码

a:=SYSPARAM(2);//可视范围内第一个K的位置
b:=DATACOUNT;
cd1:=BARPOS>=a and h=refx(hhv(h,b-a+1),DATACOUNT-BARPOS);
cd2:=BARPOS>=a and l=refx(llv(l,b-a+1),DATACOUNT-BARPOS);
len1:=BARSLAST(cd1);
len2:=BARSLAST(cd2);
cd3:=len1>0 and  h=refx(hhv(h,len1),DATACOUNT-BARPOS);
cd4:=len2>0 and  l=refx(llv(l,len2),DATACOUNT-BARPOS);
DRAWLINE(cd1 , h,cd3 ,h ,0);
DRAWLINE(cd2 , l,cd4 ,l ,0);