P:=7;//K线数
M:=2;//月份数
N1:=BARSLAST(YEAR<>REF(YEAR,1))+1;
N2:=MOD(COUNT(MONTH<>REF(MONTH,1),N1),M)=0;
COND:=CROSSDOWN(N2,0.5)||N1=1;
VERTLINE1(COND),DOT;//月份间隔虚线
Q:=MOD(BARSLAST(COND)+1,P);
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),0,1,VALUEWHEN(Q=1,O),BARSLAST(Q=1),0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),C,0,1,C,BARSLAST(Q=1),0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),BARSLAST(Q=1),1,C,BARSLAST(Q=1),0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),0,1,C,0,0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),HHV(H,BARSLAST(Q=1)+1),BARSLAST(Q=1)/2,1,MAX(C,VALUEWHEN(Q=1,O)),BARSLAST(Q=1)/2,0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C>VALUEWHEN(Q=1,O),LLV(L,BARSLAST(Q=1)+1),BARSLAST(Q=1)/2,1,MIN(C,VALUEWHEN(Q=1,O)),BARSLAST(Q=1)/2,0),COLORRED,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),0,1,VALUEWHEN(Q=1,O),BARSLAST(Q=1),0),COLORGREEN,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),C,0,1,C,BARSLAST(Q=1),0),COLORGREEN,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),BARSLAST(Q=1),1,C,BARSLAST(Q=1),0),COLORGREEN,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),VALUEWHEN(Q=1,O),0,1,C,0,0),COLORGREEN,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),HHV(H,BARSLAST(Q=1)+1),BARSLAST(Q=1)/2,1,MAX(C,VALUEWHEN(Q=1,O)),BARSLAST(Q=1)/2,0),COLORGREEN,DOT;
DRAWLINE3((Q=0||REFX1(COND,1)||ISLASTBAR)&&C<=VALUEWHEN(Q=1,O),LLV(L,BARSLAST(Q=1)+1),BARSLAST(Q=1)/2,1,MIN(C,VALUEWHEN(Q=1,O)),BARSLAST(Q=1)/2,0),COLORGREEN,DOT;
DRAWSHIFTNUMBER(Q=0||REFX1(COND,1)||ISLASTBAR,HHV(H,BARSLAST(Q=1)+1),HHV(H,BARSLAST(Q=1)+1),2,COLORRED,0,BARSLAST(Q=1)/2);
DRAWSHIFTNUMBER(Q=0||REFX1(COND,1)||ISLASTBAR,LLV(L,BARSLAST(Q=1)+1),LLV(L,BARSLAST(Q=1)+1),2,COLORGREEN,0,BARSLAST(Q=1)/2),VALIGN0;
（来源：文华财经）
