ISGOLD:=1;
ISvol:=0;
DFIX:=0;
DFIXX:=IF(DFIX=0, IF(PERIOD=0,17,IF(PERIOD=1 OR PERIOD=2,10,IF(PERIOD=3,7,IF(PERIOD =4,5,1)))),DFIX);
轮回DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
轮回DEA:= EMA(轮回DIFF,9);
上穿周期:=BArslAST(LONGcrOSS(轮回DEA,0,DFIXX));
下穿周期:=BARSLAST(LONGCROSS(0,轮回DEA,DFIXX));
最低点周期:=BARSLAST(L=LLV(L,下穿周期) AND 轮回DEA
最高点周期:=BARSLAST(H=HHV(H,最低点周期));
轮高点TJ1:=LONGCROSS(0,轮回DEA,DFIXX);{最后一天的条件}
轮高点TJ2:=BacKSET(轮高点TJ1,最高点周期+1);
轮高点:=轮高点TJ2 REF(轮高点TJ2,1);
轮低最高点周期:=BARSLAST(H=HHV(H,上穿周期) AND 轮回DEA
轮低最低点周期:=BARSLAST(L=LLV(L,轮低最高点周期));
轮低点TJ1:=LONGCROSS(轮回DEA,0,DFIXX);{最后一天的条件}
轮低点TJ2:=BACKSET(轮低点TJ1,轮低最低点周期+1);
轮低点:=轮低点TJ2 REF(轮低点TJ2,1);
GGP:=BARSLAST(轮高点);
DDP:=BARSLAST(轮低点);
距离:=IF(轮高点,DDP,IF(轮低点,GGP,DRAWNULL)),NODRAW;
力度:=IF(轮高点,(HHV(H,GGP+1)-LLV(L,DDP+1)),IF(轮低点,(HHV(H,GGP+1)-LLV(L,DDP+1)),DRAWNULL)),NODRAW;
均力:=IF(轮高点,(HHV(H,GGP+1)-LLV(L,DDP+1))/(DDP),IF(轮低点,(HHV(H,GGP+1)-LLV(L,DDP+1))/(GGP),DRAWNULL)),NODRAW;
轮回点:=轮低点 OR 轮高点;
NZ1:=BARSLAST(轮回点);{最近转折点到现在的时间,如果现在是轮回点,值为0}
NZ2:=REF(NZ1,NZ1+1)+NZ1+1;{第二转折点到现在的时间};
NZ3:=REF(NZ2,NZ2)+NZ2;{第3转折点到现在的时间}
NZ4:=REF(NZ2,NZ3)+NZ3;{第4转折点到现在的时间}
纠偏率:=IF(轮回点,力度/REF(力度,NZ2),DRAWNULL)NODRAW;
盘背率:=IF(轮回点,力度/REF(力度,NZ3),DRAWNULL)NODRAW;
{画线}
ISLINE:=BACKSET(轮高点 OR 轮低点,MAX(GGP,DDP));
LED:=IF(GGP DDP,REF(L,DDP)+REF(均力,(DDP))(DDP),REF(H,GGP)-REF(均力,(GGP))(GGP));
LED2:=IF(GGP DDP,REF(L,DDP)+REF(均力,(DDP))2(DDP),REF(H,GGP)-REF(均力,(GGP))2(GGP));
LED3:=IF(GGP DDP,REF(L,DDP)+REF(均力,(DDP))/2(DDP),REF(H,GGP)-REF(均力,(GGP))/2(GGP));
角11:DRAWLINE(IS1T1 AND (轮低点 OR 轮高点) AND ISLINE,IF(GGP DDP,L,H),ISLASTBAR,LED,0),COLORWHITE,DOTLINE;
角21:DRAWLINE(IS2T1 AND (轮低点 OR 轮高点) AND ISLINE,IF(GGP DDP,L,H),ISLASTBAR,LED2,0),COLORLIBLUE,DOTLINE;
角12:DRAWLINE(IS1T2 AND (轮低点 OR 轮高点) AND ISLINE,IF(GGP DDP,L,H),ISLASTBAR,LED3,0),COLORLIGREEN,DOTLINE;
上升:DRAWLINE(轮低点,L,轮高点, H,0),COLORMAGENTA;
下降:DRAWLINE(轮高点,H,轮低点, L,0),COLORGREEN;
{轮回点要标出当下斜率,命名斜率1，分轮高点和轮低点两种情况}
最后轮回点TJ:=BACKSET(ISLASTBAR,BARSLAST(轮回点)+1);
最后轮回点:=最后轮回点TJ REF(最后轮回点TJ,1);
最后轮回点SJ:=BARSLAST(最后轮回点);
bs:=IF (CLOSE 1000,1,100);
{轮低点情况}
轮低点斜率1:=IF(轮低点,(REF(H,NZ2)-L)/NZ2,0) ;
轮低点斜率2:=IF(轮低点,(REF(H,NZ2)-REF(L,NZ3))/(NZ3-NZ2),0);
轮低点斜率3:=IF(轮低点,(REF(H,NZ4)-REF(L,NZ3))/(NZ4-NZ3),0);
DRAWNUMBER(轮低点,(L+(REF(H,NZ2)-L)0.1),BS(REF(H,NZ2)-L)),COLORYELLOW; {显示轮回线空间}
DRAWNUMBER(轮低点,L,BS((REF(H,NZ2)-L)/NZ2)),COLORYELLOW; {波动率}
{轮高点情况}
轮高点斜率1:=IF(轮高点,(H-REF(L,NZ2))/NZ2,0);
轮高点斜率2:=IF(轮高点,(REF(H,NZ3)-REF(L,NZ2))/(NZ3-NZ2),0);
轮高点斜率3:=IF(轮高点,(REF(H,NZ3)-REF(L,NZ4))/(NZ4-NZ3),0);
DRAWNUMBER(轮高点,H,BS(H-REF(L,NZ2))) COLORYELLOW ; {显示轮回线空间}
DRAWNUMBER(轮高点,H-(H-REF(L,NZ2))0.1,BS((H-REF(L,NZ2))/NZ2)) COLORYELLOW ; {波动率}
VPOINT:=IF(轮低点,L,IF(轮高点,H,0));
轮回周期:=NZ2;
下降力度:=IF(轮低点,1,0)(REF(H,NZ2)-L);
下降波动率:=IF(轮低点,1,0)((REF(H,NZ2)-L)/NZ2);
上升力度:=IF(轮高点,1,0)(H-REF(L,NZ2));
上升波动率:=IF(轮高点,1,0)((H-REF(L,NZ2))/NZ2);
Ptop:=BARSLAST(轮高点);
PBOT:=BARSLAST(轮低点);
P1:=BARSLAST(下降波动率
P2:=SUMBARS(下降波动率 0,2);
LLP:=BARSLAST(L=LLV(L,PTOP));
HHP:=BARSLAST(H=HHV(H,PBOT));
虚波动率:IF(PTOP PBOT , (REF(H,PTOP)-LLV(L,PTOP))/(PTOP-LLP)BS, (HHV(H,PBOT)-REF(L,PBOT))/(PBOT-HHP)BS),NODRAW;
虚拟空间:=IF(PTOP PBOT ,REF(H,PTOP)-LLV(L,PTOP),HHV(H,PBOT)-REF(L,PBOT)),NODRAW;
P11:=BARSLAST(上升波动率
P22:=SUMBARS(上升波动率 0,2);
DOWN:=REF(下降波动率,P1),NODRAW;
UP:=REF(上升波动率,P11),NODRAW;
VLINE:=IF (PTOP PBOT,REF(上升力度,P11),(-1)REF(下降力度,P1)) ,NODRAW;
LINE:=IF(PTOP PBOT,(LLV(L,P1+1)+VLINE),HHV(H,P11+1)+VLINE),NODRAW;
{STICKLINE(IF(PTOP PBOT,REF(下降波动率,P1) REF(下降波动率,P2-1),REF(上升波动率,P22-1) REF(上升波动率,P11)),LINE,LINE,10,0),COLORYELLOW; }
DD0:=BARSLAST(轮回点),NODRAW;
DD1:=SUMBARS(轮回点,2)-1,NODRAW;
DD2:=SUMBARS(轮回点,3)-1,NODRAW;
DD3:=SUMBARS(轮回点,4)-1,NODRAW;
BD0:=IF(REF(上升波动率BS,DD0) 0,REF(上升波动率BS,DD0),REF(下降波动率BS,DD0));
BD1:=IF(REF(上升波动率BS,DD1) 0,REF(上升波动率BS,DD1),REF(下降波动率BS,DD1));
BD2:=IF(REF(上升波动率BS,DD2) 0,REF(上升波动率BS,DD2),REF(下降波动率BS,DD2));
BD3:=IF(REF(上升波动率BS,DD3) 0,REF(上升波动率BS,DD3),REF(下降波动率BS,DD3));
HH0:=IF(REF(下降力度,DD0) 0,REF(下降力度,DD0),REF(上升力度,DD0)),NODRAW;
HH1:=IF(REF(下降力度,DD1) 0,REF(下降力度,DD1),REF(上升力度,DD1)),NODRAW;
HH2:=IF(REF(下降力度,DD2) 0,REF(下降力度,DD2),REF(上升力度,DD2)),NODRAW;
HH3:=IF(REF(下降力度,DD3) 0,REF(下降力度,DD3),REF(上升力度,DD3)),NODRAW;
CC0:=REF(轮回周期,DD0),NODRAW;
CC1:=REF(轮回周期,DD1),NODRAW;
CC2:=REF(轮回周期,DD2),NODRAW;
CC3:=REF(轮回周期,DD3),NODRAW;
累计换手:SUM(VOL/CAPITAL,DD0-1)(IF(PTOP PBOT,1,0)),NODRAW;
跌幅:(HHV(H,DD0)-LLV(L,DD0))/LLV(L,DD0)100(IF(PTOP PBOT,1,0)),COLORWHITE,NODRAW;
空间平衡:HH0+HH2-HH1-HH3,NODRAW;
时间平衡:CC0+CC2-CC1-CC3,COLORYELLOW,NODRAW;
空间预测:HH1+虚拟空间-HH0-HH2,NODRAW;
时间预测:CC1+DD0-CC0-CC2,COLORYELLOW,NODRAW;
{JIaoDUSUM:540-(ATAN(BD0)+2(ATAN(BD1)+ATAN(BD2)+ATAN(BD3))-ATAN(BD4))180/3.14159;}
PHV:=IF(PERIOD=0,0.05,IF(PERIOD=1 OR PERIOD=2,0.1,IF(PERIOD=3,0.2,IF(PERIOD=4,0.3,1))));
四方平衡:=ABS(HH0+HH2-HH1-HH3)/C PHV AND ABS(CC0-CC1+CC2-CC3)/CC0
{DRAWICON(四方平衡 AND 轮回点 AND L=REF(L,DD0),L,17);}
PHLINE:=IF(PTOP PBOT,REF(VPOINT,DD0)-(HH1-HH0-HH2),REF(VPOINT,DD0)+(HH1-HH0-HH2));
STICKLINE(1,PHLINE,PHLINE,10,0),COLORYELLOW;{平衡线画图}
失衡:IF(PTOP PBOT, (PHLINE-LLV(L,DD0-2))/PHLINE, (PHLINE-HHV(H,DD0-2))/PHLINE),NODRAW;
{DRAWNUMBER(轮低点,L,180-(ATAN(HH0/DD0)180/3.14159+ATAN(HH1/DD1)180/3.14159)),COLORYELLOW; 夹角}
{DRAWNUMBER(轮高点,H,180-(ATAN(HH0/DD0)180/3.14159+ATAN(HH1/DD1)180/3.14159)) COLORYELLOW ; 夹角}
{PLINE:=IF(BP TP,REF(L,BP)+(CC0+CC2-CC1),REF(H,TP)-(CC0+CC2-CC1));
STICKLINE(CURRBARSCOUNT MIN(TP,BP),PLINE,PLINE,20,0),COLORBLUE;} {画预测平衡点}
{2560}
ISDAY:=IF (PERIOD=5,1,DRAWNULL);
MA5:ISDAYMA(CLOSE,5)COLORYELLOW,NODRAW;
MA10:ISDAYMA(CLOSE,10),NODRAW;
{MA25:MA(CLOSE,25),LINETHICK2,COLORMAGENTA;}
{IF(MA25 REF(MA25,1),MA25,DRAWNULL),COLORGREEN, LINETHICK2;}
MA60:MA(CLOSE,60),NODRAW;
MA120:MA(CLOSE,120),NODRAW;
MA250:MA(CLOSE,250),NODRAW;
PP1:=H =MA(C,5)(100+8)/100;
PP2:=L(100+20)/100 =MA(C,25);
DRAWICON(PP1 AND PERIOD=5,H1.02,15);{逃跑}
{DRAWICON(PP2,L0.97,26);{钻石底}
DRAWICON((MA(C,4)4+MA(C,25))/5 =MA(C,25) AND MA(C,5) MA(C,25),L0.97,1);{涨涨涨}
{下行中的轮回角度线的画法}
最后低点TJ:=BACKSET(ISLASTBAR,BARSLAST(轮低点)+1);
最后低点:=最后低点TJ REF(最后低点TJ,1);
最后低点2天:=IF(REF(最后低点,1),1,0);
最后低点SJ:=BARSLAST(最后低点);
相距SJ:=最后低点SJ-最后轮回点SJ;
{DRAWLINE(IS1T1 AND 最后低点,L,最后轮回点,REF(L,相距SJ)+REF(轮低点斜率1,相距SJ)相距SJ,0) COLORWHITE DOTLINE;
DRAWLINE(IS2T1 AND 最后低点,L,最后轮回点,REF(L,相距SJ)+REF(轮低点斜率1,相距SJ)相距SJ2,0) COLORLIBLUE DOTLINE;
DRAWLINE(IS1T2 AND 最后低点,L,最后轮回点,REF(L,相距SJ)+REF(轮低点斜率1,相距SJ)相距SJ0.5,0) COLORLIGREEN DOTLINE;
}
{上行中的轮回角度线的画法}
最后高点TJ:=BACKSET(ISLASTBAR,BARSLAST(轮高点)+1);
最后高点:=最后高点TJ REF(最后高点TJ,1);
最后高点2天:=IF(REF(最后高点,1),1,0);
最后高点SJ:=BARSLAST(最后高点);
{DRAWLINE(IS1T1 AND 最后高点,H,最后高点2天,REF(H,1)-REF(轮高点斜率1,1),1) COLORWHITE DOTLINE;
DRAWLINE(IS2T1 AND 最后高点,H,最后高点2天,REF(H,1)-REF(轮高点斜率1,1)2,1) COLORLIBLUE DOTLINE;
DRAWLINE(IS1T2 AND 最后高点,H,最后高点2天,REF(H,1)-REF(轮高点斜率1,1)/2,1) COLORLIGREEN DOTLINE;
}
{画比较线}
DRAWLINE(ISPX AND 最后低点 AND 最后低点SJ=最后轮回点SJ,L,最后低点2天,REF(L,1)+REF(轮低点斜率2,1),1) COLORYELLOW;
DRAWLINE(ISPX AND 最后高点 AND 最后高点SJ=最后轮回点SJ,H,最后高点2天,REF(H,1)-REF(轮高点斜率2,1),1) COLORYELLOW;
{黄金线}
{黄金柱 黄金线}
倍量TJ:=IF(CURRBARSCOUNT=1,VOL240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1));
回调量:=IF(C =O,0,VOL);
黄金线TJ:=倍量TJ =1.9 AND 倍量TJ =3 AND REFX(C,1) O AND REFX(C,2) O AND REFX(C,3) O AND REFX(回调量,1)/VOL 1 AND REFX(回调量,2)/VOL 1 AND REFX(回调量,3)/VOL
黄金线WZ:=MIN(MIN(REFX(C,1),REFX(C,2)),REFX(C,3));
黄金线XS:=IF (黄金线WZ =C,O,黄金线WZ);
STICKLINE(ISVOL AND 黄金线TJ AND C O,O,C,2,0),COLORYELLOW;
DRAWLINE(ISVOL AND 黄金线TJ AND C O,黄金线WZ,REF(黄金线TJ AND C O,15),REF(黄金线WZ,15),0),COLORYELLOW,DOTLINE;
DRAWNUMBER(ISVOL AND 黄金线TJ AND C O,黄金线WZ,黄金线WZ),COLORYELLOW;
{画空间黄金分割线}
{轮低点划线}
最后点TJ:=BACKSET(ISLASTBAR,BARSLAST(轮低点 OR 轮高点)+1);
最后点:=最后点TJ REF(最后点TJ,1);
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L, REF(轮低点,7),REF(L,7),0),COLORLIGRAY,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.191,L+(REF(H,NZ2)-L)0.191),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.191, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)0.191,7),0),COLORGRAY,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.382,L+(REF(H,NZ2)-L)0.382),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.382, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)0.382,7),0),COLORLIBLUE,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.5,L+(REF(H,NZ2)-L)0.5),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.5, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)0.5,7),0),COLORLIGREEN,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.618,L+(REF(H,NZ2)-L)0.618),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.618, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)0.618,7),0),COLORLICYAN,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.809,L+(REF(H,NZ2)-L)0.809),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)0.809, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)0.809,7),0),COLORLIRED,DOTLINE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L), REF(轮低点,7),REF(L+(REF(H,NZ2)-L),7),0),COLORLIMAGENTA,DOTLINE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)1.191, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)1.191,7),0),COLORLIBLUE,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)1.191,L+(REF(H,NZ2)-L)1.191),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)1.618, REF(轮低点,7),REF(L+(REF(H,NZ2)-L)1.618,7),0),COLORBLUE,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮低点,L+(REF(H,NZ2)-L)1.618,L+(REF(H,NZ2)-L)1.618),COLORWHITE;
{轮高点划线}
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H, REF(轮高点,15),REF(H,15),0),COLORLIMAGENTA,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.191,H-(H-REF(L,NZ2))0.191),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.191, REF(轮高点,15),REF(H-(H-REF(L,NZ2))0.191,15),0),COLORLIRED,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.382,H-(H-REF(L,NZ2))0.382),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.382, REF(轮高点,15),REF(H-(H-REF(L,NZ2))0.382,15),0),COLORLICYAN,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.5,H-(H-REF(L,NZ2))0.5),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.5, REF(轮高点,15),REF(H-(H-REF(L,NZ2))0.5,15),0),COLORLIGREEN,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.618,H-(H-REF(L,NZ2))0.618),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.618, REF(轮高点,15),REF(H-(H-REF(L,NZ2))0.618,15),0),COLORLIBLUE,DOTLINE;
DRAWNUMBER(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.809,H-(H-REF(L,NZ2))0.809),COLORWHITE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))0.809, REF(轮高点,15),REF(H-(H-REF(L,NZ2))0.809,15),0),COLORGRAY,DOTLINE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2)), REF(轮高点,15),REF(H-(H-REF(L,NZ2)),15),0),COLORLIGRAY,DOTLINE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))1.191, REF(轮高点,15),REF(H-(H-REF(L,NZ2))1.191,15),0),COLORLIBLUE,DOTLINE;
DRAWLINE(ISGOLD AND 最后点 AND 轮高点,H-(H-REF(L,NZ2))1.618, REF(轮高点,15),REF(H-(H-REF(L,NZ2))1.618,15),0),COLORBLUE,DOTLINE;
STICKLINE((C-REF(C,1))/REF(C,1) 0.05,MAX(O,C)-(ABS(O-C))/3,MAX(O,C)-ABS(O-C)2/3,2.5,0),COLORYELLOW;
STICKLINE((C-REF(C,1))/REF(C,1) 0.095,MAX(O,C)-(ABS(O-C))/3,MAX(O,C)-ABS(O-C)2/3,2.5,0),COLORMAGENTA;
STICKLINE((C-REF(C,1))/REF(C,1) -0.05,MAX(O,C)-(ABS(O-C))/3,MAX(O,C)-ABS(O-C)2/3,2.5,0),COLORBLUE;
STICKLINE((C-REF(C,1))/REF(C,1) -0.095,MAX(O,C)-(ABS(O-C))/3,MAX(O,C)-ABS(O-C)2/3,2.5,0),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.2,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.3,0,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.1,0.1,0,EXTERNSTR(0,1))COLORYELLOW;
ISWEEK:=IF (PERIOD=6,1,DRAWNULL);
MA181:ISWEEKMA(C,181),COLORMAGENTA;
立春:=FILTER(MONTH=2 AND (DAY=3 OR DAY=5 ),2);
雨水:=FILTER(MONTH=2 AND (DAY=18 OR DAY=20),2);
惊蛰:=FILTER(MONTH=3 AND (DAY=5 OR DAY=7 ),2);
春分:=FILTER(MONTH=3 AND (DAY=20 OR DAY=22),2);
清明:=FILTER(MONTH=4 AND (DAY=4 OR DAY=6 ),2);
谷雨:=FILTER(MONTH=4 AND (DAY=19 OR DAY=21),2);
立夏:=FILTER(MONTH=5 AND (DAY=6 OR DAY=8 ),2);
小满:=FILTER(MONTH=5 AND (DAY=20 OR DAY=22),2);
芒种:=FILTER(MONTH=6 AND (DAY=5 OR DAY=7 ),2);
夏至:=FILTER(MONTH=6 AND (DAY=20 OR DAY=22),2);
小暑:=FILTER(MONTH=7 AND (DAY=6 OR DAY=8 ),2);
大署:=FILTER(MONTH=7 AND (DAY=22 OR DAY=24),2);
立秋:=FILTER(MONTH=8 AND (DAY=7 OR DAY=9 ),2);
处暑:=FILTER(MONTH=8 AND (DAY=22 OR DAY=24),2);
白露:=FILTER(MONTH=9 AND (DAY=7 OR DAY=9 ),2);
秋分:=FILTER(MONTH=9 AND (DAY=22 OR DAY=24),2);
寒露:=FILTER(MONTH=10 AND (DAY=7 OR DAY=9 ),2);
霜降:=FILTER(MONTH=10 AND (DAY=22 OR DAY=24),2);
立冬:=FILTER(MONTH=11 AND (DAY=7 OR DAY=9 ),2);
小雪:=FILTER(MONTH=11 AND (DAY=22 OR DAY=24),2);
大雪:=FILTER(MONTH=12 AND (DAY=6 OR DAY=8 ),2);
冬至:=FILTER(MONTH=12 AND (DAY=21 OR DAY=23),2);
小寒:=FILTER(MONTH=1 AND (DAY=5 OR DAY=7 ),2);
大寒:=FILTER(MONTH=1 AND (DAY=19 OR DAY=21),2);
DRAWTEXT(ISDAY立春,HIGH1.02,'立春'),COLORGREEN;
DRAWTEXT(ISDAY雨水,HIGH1.02,'雨水'),COLORGREEN;
DRAWTEXT(ISDAY惊蛰,HIGH1.02,'惊蛰'),COLORGREEN;
DRAWTEXT(ISDAY春分,HIGH1.02,'春分'),COLORGREEN;
DRAWTEXT(ISDAY清明,HIGH1.02,'清明'),COLORGREEN;
DRAWTEXT(ISDAY谷雨,HIGH1.02,'谷雨'),COLORGREEN;
DRAWTEXT(ISDAY立夏,HIGH1.02,'立夏'),COLORMAGENTA;
DRAWTEXT(ISDAY小满,HIGH1.02,'小满'),COLORMAGENTA;
DRAWTEXT(ISDAY芒种,HIGH1.02,'芒种'),COLORMAGENTA;
DRAWTEXT(ISDAY夏至,HIGH1.02,'夏至'),COLORMAGENTA;
DRAWTEXT(ISDAY小暑,HIGH1.02,'小暑'),COLORMAGENTA;
DRAWTEXT(ISDAY大署,HIGH1.02,'大署'),COLORMAGENTA;
DRAWTEXT(ISDAY立秋,HIGH1.02,'立秋'),COLORYELLOW;
DRAWTEXT(ISDAY处暑,HIGH1.02,'处暑'),COLORYELLOW;
DRAWTEXT(ISDAY白露,HIGH1.02,'白露'),COLORYELLOW;
DRAWTEXT(ISDAY秋分,HIGH1.02,'秋分'),COLORYELLOW;
DRAWTEXT(ISDAY寒露,HIGH1.02,'寒露'),COLORYELLOW;
DRAWTEXT(ISDAY霜降,HIGH1.02,'霜降'),COLORYELLOW;
DRAWTEXT(ISDAY立冬,HIGH1.02,'立冬'),COLORWHITE;
DRAWTEXT(ISDAY小雪,HIGH1.02,'小雪'),COLORWHITE;
DRAWTEXT(ISDAY大雪,HIGH1.02,'大雪'),COLORWHITE;
DRAWTEXT(ISDAY冬至,HIGH1.02,'冬至'),COLORWHITE;
DRAWTEXT(ISDAY小寒,HIGH1.02,'小寒'),COLORWHITE;
DRAWTEXT(ISDAY大寒,HIGH1.02,'大寒'),COLORWHITE;
(OPEN+CLOSE)/2;