画线

作者：金字塔来源：cxh99.com 发布时间：2020年01月09日

咨询内容： 这是在其他软件里的写法 PartLine( TodayBAR +1=1 , 0 ,C[1],5,C[1], Rgb(30,144,255), 4); 当日第1k 以昨日收盘价画一条线，起点昨日倒数第5k处，终点当前k处。请老师帮忙写一下金字塔的写法。
金字塔客服： DRAWLINE(CURRBARSCOUNT=5 ,REF(C,1) ,TodayBAR =1 ,REF(C,1),1 ,COLORYELLOW ,4 ); 这样好像不对哦，没有输出。

来源:程序化久久网（ WWW.CXH99.COM ）
用户回复： 只能处理成从当日第一个K开始画线，另外试了下用画线函数实现不如直接用普通指标线处理p:=ref(c,TODAYBAR);
s:VALUEWHEN(TODAYBAR=1,p);
最后效果大概是这样的
此主题相关图片如下：temp.png
网友回复： 或者画线函数也可以：p:=ref(c,TODAYBAR);
DRAWLINE(TODAYBAR=1,p,ISLASTBAR or time=CLOSETIME(0),p,0);

此主题相关图片如下：temp.png

颜色什么的你自己再弄下就行了
[此贴子已经被作者于2019/6/19 14:02:21编辑过]
网友回复：
老师帮忙给看看问题出在哪里了：当日高点回调30点画一次连接线

BARZHI:=IF(DATATYPE=17 ,TodayBAR            ,DRAWNULL);
H_DAY:=IF(DATATYPE=17 ,HHV(H,BARZHI)     ,DRAWNULL);
VARIABLE: bs1 := 0 ;
IF (BARZHI=1 or (BARZHI>1 and H=H_DAY ) ) THEN BEGIN
     bs1 := 0;
END

IF (BARZHI>1 AND bs1=0 ) THEN BEGIN
    DRAWLINE( H =H_DAY , H , L<=H_DAY -30*MINDIFF,H_DAY -30*MINDIFF,0,RGB(255,140,0),2);
    bs1:=1;
END