请问通达信在特定几天K线自动画横竖线的公式怎么编写？

---

D1:=DATE=1130****;
D2:=DATE=1130****;
D3:=DATE=1130****;
D4:=DATE=1131****;
D5:=DATE=1131****;
K1:=BARSLAST(D1);
K2:=BARSLAST(D2);
K3:=BARSLAST(D3);
K4:=BARSLAST(D4);
K5:=BARSLAST(D5);
LK:=CONST(LLV(L,K1+1));
HK:=CONST(HHV(H,K1+1));
STICKLINE(D1,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D2,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D3,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D4,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D5,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
DRAWLINE(D1,H,ISLASTBAR,REF(H,K1),1),DOTLINE;
DRAWLINE(D2,H,ISLASTBAR,REF(H,K2),1),DOTLINE;
DRAWLINE(D3,H,ISLASTBAR,REF(H,K3),1),DOTLINE;
DRAWLINE(D4,H,ISLASTBAR,REF(H,K4),1),DOTLINE;
DRAWLINE(D5,H,ISLASTBAR,REF(H,K5),1),DOTLINE;
赞一个xypeng888
观察日:=YEAR=年 AND MONTH=月 AND DAY=日;
STICKLINE(观察日,L*0.95,H*1.05,0,0),COLORYELLOW;{这是画竖线}
notext1:if(观察日 and CURRBARSCOUNT参数设置为年,1990,2030,2013
月,1,12,2
日,1,31,18
当年月日调整时竖线和横线会随之变动.



{一、在
2013年2月18日、
2013年5月29日、
2013年9月12日、
2013年12月04日、
2013年12月31日
的当日画一条竖线（最细虚线）。
二、在上述日期K线最高价画一条向右延长的射线（最细虚线）。}
D1:=DATE=1130****;
D2:=DATE=1130****;
D3:=DATE=1130****;
D4:=DATE=1131****;
D5:=DATE=1131****;
K1:=BARSLAST(D1);
K2:=BARSLAST(D2);
K3:=BARSLAST(D3);
K4:=BARSLAST(D4);
K5:=BARSLAST(D5);
LK:=CONST(LLV(L,K1+1));
HK:=CONST(HHV(H,K1+1));
STICKLINE(D1,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D2,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D3,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D4,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
STICKLINE(D5,L-(LK+HK)/10,(LK+HK)/10+H,0,-1);
DRAWLINE(D1,H,ISLASTBAR,REF(H,K1),1),DOTLINE;
DRAWLINE(D2,H,ISLASTBAR,REF(H,K2),1),DOTLINE;
DRAWLINE(D3,H,ISLASTBAR,REF(H,K3),1),DOTLINE;
DRAWLINE(D4,H,ISLASTBAR,REF(H,K4),1),DOTLINE;
DRAWLINE(D5,H,ISLASTBAR,REF(H,K5),1),DOTLINE;