通达信定量结构源码九色采红作品

 DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:EMA(DIFF,9);
MACD:(DIFF-DEA)*2,COLORSTICK;
 
N1:=BARSLAST(CROSS(DEA,DIFF));
N2:=REF(BARSLAST(CROSS(DEA,DIFF)),N1+1);
M1:=BARSLAST(CROSS(DIFF,DEA));
M2:=REF(BARSLAST(CROSS(DIFF,DEA)),M1+1);
CL1:=LLV(CLOSE,N1+1),NODRAW;
CL2:=REF(CL1,M1+1),NODRAW;
CL3:=REF(CL2,M1+1),NODRAW;
DIFL1:=LLV(DIFF,N1+1),NODRAW;
DIFL2:=REF(DIFL1,M1+1),NODRAW;
DIFL3:=REF(DIFL2,M1+1),NODRAW;
直接底钝化:=CL1<CL2 AND DIFL1>DIFL2 AND REF(MACD,1)<0 AND DIFL2<0,NODRAW;
隔峰底钝化:=CL1<CL3 AND DIFL1<DIFL2 AND DIFL1>DIFL3 AND DIFF<DEA AND REF(MACD,1)<0 AND DIFL3<0,NODRAW;
底部钝化:=(直接底钝化 OR 隔峰底钝化) AND REF(MACD,1)<0,NODRAW;
底钝化:=底部钝化 AND REF(底部钝化,1)=0 AND DIFF<DEA,NODRAW;
底钝化消失:=(REF(直接底钝化,1) AND DIFL1<DIFL2 AND DIFF<DEA) OR (REF(隔峰底钝化,1) AND DIFL1<DIFL3 AND DIFF<DEA),NODRAW;
底部结构:=DIFF>REF(DIFF,1) AND REF(底部钝化,1) AND DIFL1*0.9884<DIFF,NODRAW;
底结构形成:=底部结构 AND REF(底部结构,1)=0,NODRAW;
底再次钝化1:=COUNT(底部结构,5) AND 底部钝化 AND DIFF<REF(DIFF,1)*1.01,NODRAW;
底再次钝化:=底再次钝化1 AND REF(底再次钝化1,1)=0,NODRAW;
M3:=BARSLAST(底结构形成)-1,NODRAW;
M4:=BARSLAST(底钝化 OR 底再次钝化),NODRAW;
M5:=BARSLAST(CROSS(DIFF,0)),NODRAW;
M6:=C<REF(CL1,M3) AND C<REF(CL2,M3) AND M3<M4 AND M3<M5,NODRAW;
底结构消失1:=COUNT(M6,M3)=1 AND REF(M6,1)=0 AND M3<M4 AND M3<M5,NODRAW;
底结构消失:=底结构消失1 AND REF(底结构消失1,1)=0 AND REF(底结构消失1,2)=0,NODRAW;
DRAWTEXT(底结构形成,DIFF/0.88,'结构形成'),COLORMAGENTA;
DRAWTEXT(底钝化 OR 底再次钝化,DIFF/0.80,'钝化'),COLORYELLOW;
DRAWTEXT((底结构消失 OR 底钝化消失) AND 底部钝化=0 AND 底再次钝化=0,DIFF/0.75,'消失'),COLORGREEN;
CH1:=HHV(CLOSE,M1+1),NODRAW;
CH2:=REF(CH1,N1+1),NODRAW;
CH3:=REF(CH2,N1+1),NODRAW;
DIFH1:=HHV(DIFF,M1+1),NODRAW;
DIFH2:=REF(DIFH1,N1+1),NODRAW;
DIFH3:=REF(DIFH2,N1+1),NODRAW;
直接顶钝化:=CH1>CH2 AND DIFH1<DIFH2 AND REF(MACD,1)>0 AND DIFH2>0,NODRAW;
隔峰顶钝化:=CH1>CH3 AND DIFH1>DIFH2 AND DIFH1<DIFH3 AND REF(MACD,1)>0 AND DIFH3>0,NODRAW;
顶部钝化:=(直接顶钝化 OR 隔峰顶钝化) AND REF(MACD,1)>0,NODRAW;
顶钝化:=顶部钝化 AND REF(顶部钝化,1)=0 AND DIFF>DEA,NODRAW;
顶钝化消失:=(REF(直接顶钝化,1) AND DIFH1>=DIFH2 AND DIFF>DEA) OR (REF(隔峰顶钝化,1) AND DIFH1>=DIFH3 AND DIFF>DEA),NODRAW;
顶部结构:=REF(顶部钝化,1) AND DIFF<REF(DIFF,1) AND DIFH1*0.99>DIFF,NODRAW;
顶结构形成:=顶部结构 AND REF(顶部结构,1)=0,NODRAW;
顶再次钝化1:=COUNT(顶部结构,5) AND 顶部钝化 AND DIFF*0.99>REF(DIFF,1),NODRAW;
顶再次钝化:=顶再次钝化1 AND REF(顶再次钝化1,1)=0,NODRAW;
N3:=BARSLAST(顶结构形成)-1,NODRAW;
N4:=BARSLAST(顶钝化 OR 顶再次钝化),NODRAW;
N5:=BARSLAST(CROSS(0,DIFF)),NODRAW;
N6:=C<REF(CH1,N3) AND C<REF(CH2,N3) AND N3<N4 AND N3<N5,NODRAW;
顶结构消失1:=COUNT(N6,N3)=1 AND REF(N6,1)=0 AND N3<N4 AND N3<N5,NODRAW;
顶结构消失:=顶结构消失1 AND REF(顶结构消失1,1)=0 AND REF(顶结构消失1,2)=0,NODRAW;
DRAWTEXT(顶结构形成,DIFF*1.15,'结构形成'),COLORMAGENTA;
DRAWTEXT(顶钝化 OR 顶再次钝化,DIFF*1.20,'钝化'),COLORYELLOW;
DRAWTEXT((顶结构消失 OR 顶钝化消失) AND 顶部钝化=0 AND 顶再次钝化=0,DIFF*1.25,'消失'),COLORGREEN;