极品变色MACD(通达信)

源码正文：

difF:ema(CLOSE,12)-Ema(CLOSE,27){XG51};
DEA:EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
stICKLINE(MacD>=0,MACD,0,2,1),COLORF00FF0{XG51};
STICKLINE(MACD<0,MACD,0,2,1),COLORRED{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00AAFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00BBFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00CCFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00ddfF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00EEFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00FFFF{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0000AA{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0011BB{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0022CC{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0033DD{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0044EE{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0055FF{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORAA00BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORBB11BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORCC22BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDD33BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLOREE44BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFF55BB{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFAA00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFBB11{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFCC22{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFDD33{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFEE44{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFFF55{XG51};
IF(DIFF<0,DIFF,0),COLORWHITE,LINETHICK1{XG51};
IF(DIFF<0,0,DIFF),COLORBLUE,LINETHICK1{XG51};
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1{XG51};
IF(DIFF>DEA,DEA,DEA),COLORRED,LINETHICK1{XG51};
低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低位金叉,0,-0.18,2,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,-0.1,' 低位金叉'),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,-0.18,2,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*1.04,13) {XG51};
DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA){XG51};
STICKLINE(底背离,0,0.13,2,0),COLOR00FF00{XG51};
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背离,0.1,' 底背离'),COLOR00FF00{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF){XG51};
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,LINETHICK2{X_G_5_1_C_N_{};

源码正文：

AA05:=ma(C,5),COLOR0099CC{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(ema((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
AA10:=MA(C,10){XG51};
AA20:=MA(C,20);BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
AA30:=MA(C,30){XG51};
三拾日乖离率:=(C-AA30)/AA30*100{XG51};
VAR11:=(AA20-AA30)>REF((AA20-AA30),1)
AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR22:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND
AA30<REF(AA30,1){XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND
crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND
AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND
AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND
AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND
AA10<REF(AA10,1),10){XG51};
DRAWICON(加仓 ,LOW*0.99,23){XG51};
DRAWICON(清仓 ,HIGH*1.01,15){XG51};
DRAWICON(强势狙击 ,LOW*0.99,13){XG51};
TYP := (HIGH + LOW + CLOSE)/3{XG51};
cci1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6)){XG51};
差值1:=Abs(REF(CCI1,1)-CCI1),LINETHICK0{XG51};
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10)){XG51};
差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0{XG51};
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20)){XG51};
差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0{XG51};
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30)){XG51};
差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0{XG51};
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60)){XG51};
差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0{XG51};
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5{XG51};
AAA:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36{XG51};
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3{XG51};
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3{XG51};
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3{XG51};
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3{XG51};
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3{XG51};
短线:VAR1,COLORRED{XG51};
中线:VAR6,COLORBLUE{XG51};
下跌:IF(VAR1=VAR6,VAR6, DRAWNULL),COLORCYAN{XG51};
TJ1:= CCI1>差值4{XG51};
立桩量:=FILTER(TJ1,0){XG51};
TJ2:=IF(BArslAst(立桩量)=1 ,1,IF(BARSLAST(立桩量)=2 ,1,
IF(BARSLAST(立桩量)=3 ,1,0))){XG51};
成立1:=TJ2{XG51};
条件成立1:=FILTER(成立1,5){XG51};
TJ11:= CCI1<-差值4 {XG51};
立桩量2:=FILTER(TJ11,0){XG51};
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
成立2:=TJ22{XG51};
条件成立2:=FILTER(成立2,5){XG51};
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5))
OR (vol=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1){XG51};
立桩量3:=FILTER(TJ111,5){XG51};
TJ222:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
突破3:=TJ222=1{XG51};
STICKLINE(CLOSE AND 下跌!= VAR6,REF(HIGH,BARSLAST(立桩量3)),
REF(HIGH,BARSLAST(立桩量3)),10,1),COLORGREEN{XG51};
STICKLINE(CLOSE AND 下跌!= VAR6,REF(LOW,BARSLAST(立桩量3)),
REF(LOW,BARSLAST(立桩量3)),10,1),COLORBLUE{XG51};
TJ3:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(LOW,3),1,0))){XG51};
三天法则:=TJ3=1{XG51};
成立:=三天法则 AND 突破3{XG51};
条件成立:=FILTER(成立,5){XG51};
TJ31:=(VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1){XG51};
TJ32:=FILTER(TJ31,1){XG51};
IF(条件成立 AND 下跌!= VAR6 AND AA30>=REF(AA30,1),H*1.03,DRAWNULL),CROSSDOT,LINETHICK6,COLORFF33FF{XG51};
IF(条件成立 AND 下跌!= VAR6 AND AA30>=REF(AA30,1),H*1.03,DRAWNULL),POINTDOT,LINETHICK4,COLOR00CCFF;

STICKLINE(C>=O,L,H,0,0),COLORWHITE{XG51};
STICKLINE(C<O,L,H,0,0),COLORFFFF00{XG51};
STICKLINE(C>O,C,O,3.2,0),COLORWHITE{XG51};
STICKLINE(1,C,O,2.8,0),COLOR454500{XG51};
STICKLINE(1,C,O,2,0),COLOR555500{XG51};
STICKLINE(1,C,O,1.5,0),COLOR656500{XG51};
STICKLINE(1,C,O,1,0),COLOR757500{XG51};
STICKLINE(1,C,O,0.5,0),COLOR858500{XG51};
STICKLINE(立桩量,C,O,2.8,0),COLOR000045{XG51};
STICKLINE(立桩量,C,O,2.8,0),COLOR000065{XG51};
STICKLINE(立桩量,C,O,2,0),COLOR000085{XG51};
STICKLINE(立桩量,C,O,1.5,0),COLOR0000A5{XG51};
STICKLINE(立桩量,C,O,1,0),COLOR0000C5{XG51};
STICKLINE(立桩量,C,O,0.5,0),COLOR0000E5{XG51};
DRAWICON(条件成立1,REF(HIGH,BARSLAST(立桩量3)),12){XG51};
DRAWICON(条件成立2,REF(LOW,BARSLAST(立桩量3)),11){X+G-5^1+C+N+{};