CSR:=3;
朔望月:=29.53058782;
RIC:=DATETODAY(DATE)+1;
IS:=INTPART((RIC+3)/朔望月);
YYS:=(((RIC+CSR)/朔望月-INTPART((RIC+CSR)/朔望月))*朔望月);
NLRI:IF(YYS< 1,ROUND(YYS+朔望月),INTPART(YYS)),NODRAW;
NUM:=MOD(IS,4);
ZYG:=IF(REF(NLRI,1)>=NLRI OR NLRI=1,1,0);
STICKLINE(ZYG AND NUM=1,C,H*5,0,-1),COLORRED;
STICKLINE(ZYG AND NUM=1,O,L*-5,0,-1),COLORRED;
STICKLINE(ZYG AND NUM=2,C,H*5,0,-1),COLORGREEN;
江恩日:BARSLAST(ZYG AND NUM=2)+1,NODRAW;
STICKLINE(ZYG AND NUM=2,O,L*-5,0,-1),COLORGREEN;
STICKLINE(ZYG AND NUM=3,C,H*5,0,-1),COLORWHITE;
STICKLINE(ZYG AND NUM=3,O,L*-5,0,-1),COLORWHITE;
STICKLINE(ZYG AND NUM=0,C,H*5,0,-1),COLORYELLOW;
STICKLINE(ZYG AND NUM=0,O,L*-5,0,-1),COLORYELLOW;
基准:=(DATETODAY(DATE)+2)/朔望月+0.0016,COLORYELLOW,NODRAW;
ISFIRSTA:=INTPART(基准);
SCOLORA:=IF((REF(基准,1)< ISFIRSTA AND (基准+0.1)>=ISFIRSTA)OR 基准=ISFIRSTA,1,0);
A0:=ZYG AND MOD(INTPART(基准+0.1),4)=1;
A1:=ZYG AND MOD(INTPART(基准+0.1),4)=2;
A2:=ZYG AND MOD(INTPART(基准+0.1),4)=3;
A3:=ZYG AND MOD(INTPART(基准+0.1),4)=0;
STICKLINE(A0,H*1.5,1,0,0),COLORRED,LINETHICK1;
STICKLINE(A1,H*1.5,1,0,0),COLORMAGENTA,LINETHICK1;
STICKLINE(A2,H*1.5,1,0,0),COLORYELLOW,LINETHICK1;
STICKLINE(A3,H*1.5,1,0,0),COLORBLUE,LINETHICK1;
STICKLINE(BARSLAST(A0)=5,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A0)=13,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=0,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=7,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=10,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A1)=14,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=3 ,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=7,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A2)=14,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=5,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=9 ,L*0.98,1.3,0,-1),COLORCYAN,LINETHICK1;
STICKLINE(BARSLAST(A3)=15,H*1.02,H*1.3,0,-1),COLORCYAN,LINETHICK1;
DRAWTEXT(BARSLAST(A0)=5,L*0.9,'1'),COLORCYAN;
DRAWTEXT(BARSLAST(A0)=13,H*1.1,'2'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=0,L*0.9,'3'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=7,H*1.1,'4'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=10,L*0.9,'5'),COLORCYAN;
DRAWTEXT(BARSLAST(A1)=14,H*1.1,'6'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=3,L*0.9,'7'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=7 ,H*1.1,'8'),COLORCYAN;
DRAWTEXT(BARSLAST(A2)=14,L*0.9,'9'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=5,H*1.1,'10'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=9,L*0.9,'11'),COLORCYAN;
DRAWTEXT(BARSLAST(A3)=15,H*1.1,'12'),COLORCYAN;
STICKLINE(C>0,L*0.99,H*1.01,8,0),COLORBLACK;
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(C>O,0,0.3,0,'分析家公式网HTTP://WWW.70822.COM'),COLOR222222;
DRAWTEXT_FIX(C>0,0.7,0.01,0,'（月域）白'),COLORFFFFFF;
DRAWTEXT_FIX(C>0,0.7,0.05,0,'1白6 2白10 3白17'),COLORFFFFFF;
DRAWTEXT_FIX(C>0,0.7,0.1,0,'4黄5 5黄10 6黄20 '),COLORYELLOW ;
DRAWTEXT_FIX(C>0,0.7,0.15,0,'7红6 8红12 9绿2'),COLOR0000FF;
DRAWTEXT_FIX(C>0,0.7,0.2,0,' 10绿8 11绿13 （11）绿16'),COLORGREEN;
DRAWTEXT_FIX(C>0,0.5,0.16,0,'（DERTA绿）'),COLORGREEN;
DRAWTEXT_FIX(C>0,0.5,0.2,0,'1红初六 2红十四 3绿三十'),COLOR0000FF;
DRAWTEXT_FIX(C>0,0.5,0.24,0,'1红后6 2绿前6 3绿处'),COLOR0000FF;
DRAWTEXT_FIX(C>0,0.5,0.3,0,'4绿初八 5绿十一 6绿后十五'),COLORGREEN;
DRAWTEXT_FIX(C>0,0.5,0.34,0,'4绿后8 5白前10 6白前6'),COLORGREEN;
DRAWTEXT_FIX(C>0,0.5,0.4,0,'7白初四 8白后初八 9白十五'),COLORFFFFFF;
DRAWTEXT_FIX(C>0,0.5,0.44,0,'7白前3 8白后8 9黄前5'),COLORFFFFFF;
DRAWTEXT_FIX(C>0,0.5,0.5,0,'10黄初六 11黄初十 12黄十六'),COLORYELLOW;
DRAWTEXT_FIX(C>0,0.5,0.54,0,'10黄后6 11黄后10 12红前4'),COLORYELLOW;
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.14,0.0,0,'概念板块：'),COLORFF00FF;
DRAWTEXT_FIX(1,0.20,0.0,0,GNBLOCK),COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.04,0,'风格板块：'),COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.04,0,FGBLOCK),COLOR0000FF;
