通达信季月周箱体主图公式

季月周箱体，实际交易时间线计算，适用通达信，喜欢请下载附件源码
 有些图比较适合月线观察，如上海三毛，有些比较适合周线观察，请自行斟酌修改设定
 该指标矩形都是按实际交易日算的，所以有的月矩形只有几天，有的周矩形只有三两日，看图的时候请注意观察
 个人认为，这个矩形公式实际就是周K线和月K线的一种表现形式，省的大家另外点击看月线和周线了，对于季线我个人认为作用不大，请大家参考

源码

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