分享给大家 龙腾四海 通达信副图指标 源码 帖图 无未来

A1:=100*(EMA(C,12)-EMA(C,26))/EMA(C,26);
A2:=EMA(A1,9);
{MACD:(A1-A2)*2,NODRAW;}
海平面: 0,CIRCLEDOT;
龙头:MACD;
SJTJ:=DATE<1590301;
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(DEA>REF(DEA,1),MACD,DRAWNULL),COLORRED,LINETHICK1;
IF(DEA<REF(DEA,1),MACD,DRAWNULL),COLORGREEN,LINETHICK1;}

IF(MACD>海平面,海平面,DRAWNULL),COLORRED,CIRCLEDOT,LINETHICK1;
IF(MACD<海平面,海平面,DRAWNULL),COLOR00FF00,CIRCLEDOT,LINETHICK1;