农历:=lday;
isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15 and 农历>15,1,0);
isColor:=if(lday=15 or isFirst,1,0); {判断是否绘制彩线的位置:农历15,或者农历15后的第一个交易日}
Num:=count(isColor,0);
VERTLINE(isColor and mod(Num,4)=0,1),colorred,pointdot;
VERTLINE(isColor and mod(Num,4)=1,1),coloryellow,pointdot;
VERTLINE(isColor and mod(Num,4)=2,1),colorblue,pointdot;
VERTLINE(isColor and mod(Num,4)=3,1),colorgreen,pointdot;