【通达信免费源码】龙腾四海指标 副图 无未来函数 操盘控盘

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;