农历:=lday;isFirst:=if(农历>Ref(农历,1) and ref(农历,1)<15>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;