通达信神龙摆尾副图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击  安装指南  步骤操作

A1:=100*(EMA(C,12)-EMA(C,26))/EMA(C,26);
A2:=EMA(A1,9);
海平面: 0,CIRCLEDOT;
龙头:MACD;
SJTJ:=DATE<1590301;{程序化指标官方网址 WWW.HONGHAIE.COM}
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,3,0),COLOR0000AA;{红色}
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLOR0000CC;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,1,0),COLOR0000EE;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,0.1,0),COLOR5555FF;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLOR8080FF;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,3,0),COLOR770077;{紫色}
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,2,0),COLOR990099;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,1,0),COLORBB00BB;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,0,0),COLORDD00DD;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,0.1,0),COLORFF00FF;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,3,0),COLORFF0000;{蓝色}
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLORFF5500;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,1,0),COLORFF9900;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLORFFFF00;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,3,0),COLOR155500;{绿色}
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,2,0),COLOR208000;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,1,0),COLOR2BAA00;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,0.1,0),COLOR35D500;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,0,0),COLOR40FF00;
DIF:=A1,COLORWHITE;DEA:=A2,COLORYELLOW;
DD:=EMA(EMA((C-LLV(L,10))/(HHV(H,10)-LLV(L,10))*100,3),3);
龙尾上升:IF(DIF>REF(DIF,1),MACD,DRAWNULL),COLORRED,LINETHICK1;
龙尾下跌:IF(DIF<REF(DIF,1),MACD,DRAWNULL),COLORGREEN,LINETHICK1;
IF(MACD>海平面,海平面,DRAWNULL),COLORRED,CIRCLEDOT,LINETHICK1;
IF(MACD<海平面,海平面,DRAWNULL),COLOR00FF00,CIRCLEDOT,LINETHICK1;