WO:=O#WEEK;
WC:=C#WEEK;
WH:=H#WEEK;
WL:=L#WEEK;
T:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));
T1:=CROSS(BACKSET(T=0,2),0.5);
YO:=O#MONTH;
YC:=C#MONTH;
YH:=H#MONTH;
YL:=L#MONTH;
YT:=BARSLAST(MONTH!=REF(MONTH,1));
YT1:=CROSS(BACKSET(YT=0,2),0.5);
A0:=MOD(MONTH,3);
JD:=BARSLAST(CROSS(A0,0.5));
JT:=BARSLAST(JD JT1:=CROSS(BACKSET(JT=0,2),0.5);
JO:=O#SEASON;
JC:=C#SEASON;
JH:=H#SEASON;
JL:=L#SEASON;
{季}
STICKLINE(IF(ISLASTBAR,JT1=1,JC>=JO AND JT>0 AND JT1=0 ),JH,JH,8,0),COLORRED;
STICKLINE(IF(ISLASTBAR,JT1=1,JC>=JO AND JT>0 AND JT1=0 ),JL,JL,8,0),COLORRED;
STICKLINE(JC>=JO AND (JT=0 OR JT1=1 OR ISLASTBAR),JH,JL,0,0),COLORRED;
STICKLINE(IF(ISLASTBAR,JT1=1,JC0 AND JT1=0),JH,JH,8,0),COLORGREEN;
STICKLINE(IF(ISLASTBAR,JT1=1,JC0 AND JT1=0),JL,JL,8,0),COLORGREEN;
STICKLINE(JC {月}
STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WH,WH,8,-1),COLORRED;
STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WL,WL,8,-1),COLORRED;
STICKLINE(WC>=WO AND (T=0 OR T1=1 OR ISLASTBAR),WH,WL,0,-1),COLORRED;
STICKLINE(IF(ISLASTBAR,T1=1,WC0 AND T1=0),WH,WH,8,-1),COLORGREEN;
STICKLINE(IF(ISLASTBAR,T1=1,WC0 AND T1=0),WL,WL,8,-1),COLORGREEN;
STICKLINE(WC {周}
STICKLINE(IF(ISLASTBAR,YT1=1,YC>=YO AND YT>0 AND YT1=0 ),YH,YH,8,-1),COLORRED;
STICKLINE(IF(ISLASTBAR,YT1=1,YC>=YO AND YT>0 AND YT1=0 ),YL,YL,8,-1),COLORRED;
STICKLINE(YC>=YO AND (YT=0 OR YT1=1 OR ISLASTBAR),YH,YL,0,-1),COLORRED;
STICKLINE(IF(ISLASTBAR,YT1=1,YC0 AND YT1=0),YH,YH,8,-1),COLORGREEN;
STICKLINE(IF(ISLASTBAR,YT1=1,YC0 AND YT1=0),YL,YL,8,-1),COLORGREEN;
STICKLINE(YC