通達信股票公式仿大智慧至尊版MACD

通達信股票公式仿大智慧至尊版MACD

　　LONG:=26;SHORT:=12;M:=9;

　　DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);

　　DEA:=EMA(DIFF,M);

　　MACD2:=2*(DIFF-DEA);

　　(CLOSE<0 AND CROSS(DIFF,0),H*1.3),COLOR000080,NODRAW;

　　(CLOSE<0 AND CROSS(MACD2,0),H*1.3),COLOR000080,NODRAW;

　　(CLOSE<0 AND CROSS(0,DIFF),H*1.3),COLOR808080,NODRAW;

　　(CLOSE<0 AND CROSS(0,MACD2),H*1.3),COLOR808080,NODRAW;

　　DU0:=CROSS(DIFF,0);

　　UD0:=CROSS(0,DIFF);

　　TDU0:=BARSLAST(DU0);

　　TUD0:=BARSLAST(UD0);

　　DU3:=REF(DU0,1);

　　UD3:=REF(UD0,1);

　　TDU3:=BARSLAST(DU3);

　　TUD3:=BARSLAST(UD3);

　　UDGLINE:=IF(TDU3

　　JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0

　　JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE

　　JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;

　　JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;

　　JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)

　　JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);

　　JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);

　　JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)

　　BSLINE:=IF(BARSLAST(JDU2)

　　STICKLINE(MACD2>=0,0,MACD2,2,1),COLOR0000FF;

　　STICKLINE(MACD2>=0 AND MACD2

　　STICKLINE(MACD2<0,0,MACD2,2,0),COLORFFFF00;

　　STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,2,1),COLORFFFF00;

　　DIF:DIFF,LINETHICK2,COLOR0000FF;www.rmkc.cn

　　MACD:DEA,COLORFF0000;

　　DEF:MACD2,LINETHICK0,COLORFFFF00;

　　STICKLINE(CLOSE>0,0,0,2,0),COLOR808080;

　　DEFUT:=BARSLAST(CROSS(MACD2,0));

　　DEFDT:=BARSLAST(CROSS(0,MACD2));

　　DEFUL:=IF(MACD2>=0,HHV(MACD2,DEFUT+1),REF(HHV(MACD2,DEFUT+1),DEFDT+1));

　　DEFDL:=IF(MACD2<0,LLV(MACD2,DEFDT+1),REF(LLV(MACD2,DEFDT+1),DEFUT+1));

　　DEFU2L:=REF(DEFUL,DEFUT+1);

　　DEFD2L:=REF(DEFDL,DEFDT+1);

　　DRAWICON(LLV(MACD2,4)>0 AND MACD2REF(MACD2,2) AND REF(MACD2,2)>REF(MACD2,3),MACD2,2);

　　DRAWICON(HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)

　　DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND MACD2>=0 AND REF(MACD2,1)DEFU2L,MACD2,5);

　　DRAWICON((JDU1 OR BARSLAST(JDU1)REF(DEFD2L,1) AND MACD2

　　VAR111:=JDU1 OR BARSLAST(JDU1)

　　VAR112:=HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)