标题：周Ｋ线图上画线

请教专家：

 

Ｋ线图坐标：自然日坐标、农历时间

在周K线图上，每隔三个农历月的十五号画一根彩色竖线，竖线由红、兰、绿、白四种颜色交替出现，应如何实现？

按照周周期来的话，至多能在15号所在的那个周线上画线，而且如果15号是节假日这种还没办法处理。

是呢，在15号所在的那个周线上画一根彩色竖线，竖线由红、兰、绿、白四种颜色交替出现，应如何实现？谢谢！

VARIABLE:z:=0;
M:=LMONTH;
D:=LDAY;
cond:ref(M,1)=M and ref(D,1)<15 and D>=15; //判断上一个K月份和当前K月份是否一致，月份需要一致，并且当前K日期大于等于15号上一个K日期小于15号。说明15号包含在当前这个K下面。

if cond then
begin
z:=if(z<3,z+1,0);
VERTLINE(1,0,0,if(z=0,COLORBLUE,if(z=1,COLORRED,if(z=2,COLORYELLOW,COLORGRAY))))；//颜色可以自行调整下 我这里只是范例。
end

 

 

 

颜色你自己调整下，我测试就随便弄了几个颜色。

需要每隔三个农历月，画一根彩色竖线。

不是每个月都画线，需要每隔三个农历月，画一根彩色竖线。

之前没注意到。改下代码即可。

 

VARIABLE:z:=0,ct:=0;
M:=LMONTH;
D:=LDAY;
cond:ref(M,1)=M and ref(D,1)<15 and D>=15; //判断上一个K月份和当前K月份需要一致，并且当前K日期大于等于15号上一个K日期小于15号。
if cond then
begin
z:=if(z<3,z+1,0);
end

if cond and z=0 then
begin
ct:=if(ct<3,ct+1,0);
end

VERTLINE(z=0 and cond ,0,0,if(ct=0,COLORBLUE,if(ct=1,COLORRED,if(ct=2,COLORYELLOW,COLORGRAY))))；//颜色可以自行调整下 我这里只是范例。

 

 

 

谢谢！