指标公式（周期画线）

编写要求：

解答：

?网友求助：

源码：（说明：此指标根据期友留言编写，指标原理是依据N周期内最高价或最低价向后第23周期画垂直线；具体周期数可根据个人总结需要调整的朋友可将第三行的两个23改成N，N值可逐个调试。由于博易不支持画垂直线函数，请使用博易的网友不要请求修改。）
A:=HHVBARS(H,0);
B:=LLVBARS(L,0);
VERTLINE(A=23 || B=23,COLORRED);

TMP:=OPEN-CLOSE;
DRAWLINE(TMP>0.00001,HIGH,TMP>0.00001,OPEN,COLORCYAN);
DRAWLINE(TMP>0.00001,LOW,TMP>0.00001,CLOSE,COLORCYAN);
DRAWLINE(TMP<-0.00001,HIGH,TMP<-0.00001,CLOSE,COLORRED);
DRAWLINE(TMP<-0.00001,LOW,TMP<-0.00001,OPEN,COLORRED);
DRAWLINE(ABS(TMP)<0.00001,LOW,ABS(TMP)<0.00001,OPEN,COLORWHITE);
DRAWLINE(ABS(TMP)<0.00001,HIGH,ABS(TMP)<0.00001,OPEN,COLORWHITE);
STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);
STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,1);

各位老师.可以把上面的源代码改写成飞狐用的吗?还有一点要求如下 实现飞狐画线工具里等周期画线那样的功能,都是一个固定周期的垂直线,一直延续到未来,如果到了的话线条自然落到该天的收盘价上.,
用四种颜色表示每条线.没到的线用同一种颜色表示,