通达信季线 月线 周线画矩形公式

以下是通达信季线 月线 周线画矩形公式

通达信季线 月线 周线画矩形公式

源码

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<REF(JD,1));
 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),COLORLIMAGENTA;
 STICKLINE(IF(ISLASTBAR,JT1=1,JC>=JO AND JT>0 AND JT1=0 ),JL,JL,8,0),COLORLIMAGENTA;
 STICKLINE(JC>=JO AND (JT=0 OR JT1=1 OR ISLASTBAR),JH,JL,0,0),COLORLIMAGENTA;
 STICKLINE(IF(ISLASTBAR,JT1=1,JC<JO AND JT>0 AND JT1=0),JH,JH,8,0),COLORWHITE;
 STICKLINE(IF(ISLASTBAR,JT1=1,JC<JO AND JT>0 AND JT1=0),JL,JL,8,0),COLORWHITE;
 STICKLINE(JC<JO AND (JT=0 OR JT1=1 OR ISLASTBAR),JH,JL,0,0),COLORWHITE;
 STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WH,WH,8,-1),COLORYELLOW;
 STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WL,WL,8,-1),COLORYELLOW;
 STICKLINE(WC>=WO AND (T=0 OR T1=1 OR ISLASTBAR),WH,WL,0,-1),COLORYELLOW;
 STICKLINE(IF(ISLASTBAR,T1=1,WC<WO AND T>0 AND T1=0),WH,WH,8,-1),COLORBLUE;
 STICKLINE(IF(ISLASTBAR,T1=1,WC<WO AND T>0 AND T1=0),WL,WL,8,-1),COLORBLUE;
 STICKLINE(WC<WO AND (T=0 OR T1=1 OR ISLASTBAR),WH,WL,0,-1),COLORBLUE;
 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,YC<YO AND YT>0 AND YT1=0),YH,YH,8,-1),COLORGREEN;
 STICKLINE(IF(ISLASTBAR,YT1=1,YC<YO AND YT>0 AND YT1=0),YL,YL,8,-1),COLORGREEN;
 STICKLINE(YC<YO AND (YT=0 OR YT1=1 OR ISLASTBAR),YH,YL,0,-1),COLORGREEN;