MACD双背离通达信指标公式源码.docx

"3tMltlWttMiMilliteMHMttmacd双背离DIFF:EMA(CL0SE,12)・EMA(CLOSE,26);DEA:EMA(DIFF,9);MACD:2*(DIFF・DEA),COLORSTICK;JC:=DEA-DIFF;绿柱面积:=IF(MACDvO,SUM(MACD,BARSLAST(JCvO)),O);红柱面积:=IF(MACD>0,SUM(MACDzBARSLAST(JC>0)),0);本次最低价:=LLV(LzBARSLAST(JC<0));本次最高价:=HHV(H,BARSU\ST(JC>0));X1:=IF(MACD<0,BARSLAST(CROSS(DIFFZDEA)),0);前次绿柱面积:=REF(绿柱面积,X1+1);前次最低价:=REF(本次最低价,X1+1);Y1:=IF((绿柱而积<0ANDABS(绿柱面积)<ABS(前次绿柱面积)AND本次最低价v前次最低价),1,0);RS1:=MACD<0ANDREF(MACDzl)<0ANDCv前次最低价ANDABS(绿柱血积)<ABS(前次绿柱血积)ANDABS(MACD)<ABS(REF(MACD,1));底背驰:=IF(CROSS(DIFF,DEA),REF(Y1Z1),0);DRAWTEXT(底背驰,-;积底'),COLORRED;{DRAWBAND(DIFF,RGB(200,50z55)zDEA,RGB(50,100,10));}X2:=IF(MACD>0,BARSLAST(CROSS(DEAZDIFF))Z0);前次红柱面积:=REF(红柱面积ZX2+1);前次最高价:=REF(本次最高价,X2+1);Y2:=IF((红柱面积>OAND红柱面积v前次红柱面积AND本次最高价〉前次最高价),1,0);RS2:=MACD>0ANDREF(MACD,l)>0ANDC>前次最高价ANDABS(红柱面积)<ABS(前次红柱面积)ANDABS(MACD)<ABS(REF(MACD,1));顶背驰:=IF(CROSS(DEA,DIFF),REF(Y2,1),0);DRAWTEXT