通达信背离一目了然选股指标公式源码

通达信背离一目了然选股指标公式源码

源码正文：

W:=1{XG51};
M:=1{XG51};
MM:=9*M{XG51};
SHORT:=MM*4/3{XG51};
LONG:=MM*26/9{XG51};
difF:=(ema(CLOSE,SHORT)-Ema(CLOSE,LONG)){XG51};
DEA:=EMA(DIFF,MM),COLOR58FF58{XG51};
macd:=2*(DIFF-DEA),COLORFFFF00,LINETHICK0{XG51};
红柱:DRAWBAND(MacD,RGB(180,50,50),0,RGB(0,128,0)){XG51};
绿柱:DRAWBAND(0,RGB(0,128,0),MACD,RGB(180,50,50)){XG51};
AMACD:=Abs(MACD){XG51};

红柱面积 := IF (MACD>0,SUM(AMACD,BArslAST(MACD<0)),0),LINETHICK0,COLORWHITE{XG51};
绿柱面积 := IF (MACD<0,SUM(AMACD,BARSLAST(MACD>0)),0),LINETHICK0,COLORYELLOW{XG51};
BV:=SUM(MACD,0){XG51};
红转绿:=crOSS(MACD,0){XG51};
绿转红:=CROSS(0,MACD){XG51};
BC:=BARSLAST(红转绿 OR 绿转红)+1{XG51};
最高红柱子:IF(MACD>0,HHV(MACD,BC),0),NODRAW{XG51};
最低绿柱子:IF(MACD<0,LLV(MACD,BC),0),NODRAW{XG51};
DRAWTEXT(绿转红 ,REF(最高红柱子,1),''+REF(INTPART((红柱面积)*10)/10,1)),COLORWHITE{XG51};
DRAWTEXT(红转绿 ,REF(最低绿柱子,1),''+REF(INTPART((绿柱面积)*10)/10,1)),COLORWHITE{XG51};
CDIFF:DIFF;CDEA:DEA{X+G_5?1+C+N+{};