通达信MACD寻龙共振副图指标源码

{日周月趋势}

月DIF:=(EMA(CLOSE,12*4*4)-EMA(CLOSE,26*4*4));

月DEA:=EMA(月DIF,9*4*4);

月MACD:=2*(月DIF-月DEA),COLORSTICK,COLOR111111;

周DIF:=(EMA(CLOSE,12*4)-EMA(CLOSE,26*4));

周DEA:=EMA(周DIF,9*4),COLORWHITE,DOTLINE;

周MACD:=2*(周DIF-周DEA),COLORSTICK,COLOR111111;

日DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26));

日DEA:=EMA(日DIF,9);

日MACD:=2*(日DIF-日DEA),COLORWHITE;

{MACD大行情}

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD:=2*(DIF-DEA),COLORRED;

VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);

VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);

QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);

前高线:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORMAGENTA;

MACD120:=REF(MACD/2,BARSLAST(MACD=HHV(MACD,120))),COLORA67D3D,LINETHICK1;

MACD250:REF(MACD/2,BARSLAST(MACD=HHV(MACD,250))),COLORYELLOW,LINETHICK2;

XG:=NOT(REF(MACD120,1)=MACD120);{WWW.GOODGUPIAO.COM}

{STICKLINE(XG,0,MACD,0,0),COLORYELLOW;}

STICKLINE(MACD>=MACD250,MACD250,MACD,2,0),COLORMAGENTA;

STICKLINE(MACD>=MACD250 AND MACD>REF(MACD,1),MACD,0,1,0),COLORYELLOW;

大行情:=NOT(REF(MACD120,1)=REF(MACD250,1)) AND MACD120=MACD250;

{墨轩启动板成妖}

DIF4:=EMA(CLOSE,12)-EMA(CLOSE,26);DEA4:=EMA(DIF4,9);

ZTB:=C>INTPART(REF(C,1)*(1+10/100)/0.01+0.5)*0.01-0.006 AND C=H;

启动版:=DIF4>-0.2 AND DIF4<0.35 AND ZTB AND REF(ZTB,1)<1 AND COUNT(DIF>=-0.01,5)=5;

DRAWTEXT(启动版,MACD250*1.3,'妖'),COLORRED;

{MACD年线共振色带}

STICKLINE(月MACD>REF(月MACD,1),MACD250,0,5,0),COLORLIMAGENTA;

STICKLINE(月MACD<REF(月MACD,1),MACD250,0,5,0),COLORLIGREEN;

{STICKLINE(周柱>REF(周柱,1),MACD250/2,0,5,0),COLOR3300CC;}

{STICKLINE(周柱<REF(周柱,1),MACD250/2,0,5,0),COLORBLUE;}

DRAWBAND(EMA(周MACD,10),RGB(0,0,180), 周MACD,RGB(255,255,0));

{MACD柱}

STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,1,0),COLORYELLOW;

STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,1,0),COLORLIBLUE;

STICKLINE(MACD<0,0,MACD,1,0),COLORGREEN;

{MACD年线加强柱}{WWW.GOODGUPIAO.COM}

STICKLINE(MACD>=MACD250,MACD250,MACD,2,0),COLORMAGENTA;

{STICKLINE(MACD>=MACD250 AND MACD>REF(MACD,1),MACD,0,1,0),COLORYELLOW;}

日MACD1:MACD,COLORYELLOW,LINETHICK4;

MACD2501:REF(MACD/2,BARSLAST(MACD=HHV(MACD,250))),COLORYELLOW,LINETHICK3,NODRAW;

原理解析：
{日周月趋势}
月DIF赋值:(收盘价的12*4*4日指数移动平均-收盘价的26*4*4日指数移动平均)
月DEA赋值:月DIF的9*4*4日指数移动平均
月MACD赋值:2*(月DIF-月DEA),COLORSTICK,COLOR111111
周DIF赋值:(收盘价的12*4日指数移动平均-收盘价的26*4日指数移动平均)
周DEA赋值:周DIF的9*4日指数移动平均,画白色,DOTLINE
周MACD赋值:2*(周DIF-周DEA),COLORSTICK,COLOR111111
日DIF赋值:(收盘价的12日指数移动平均-收盘价的26日指数移动平均)
日DEA赋值:日DIF的9日指数移动平均
日MACD赋值:2*(日DIF-日DEA),画白色
{MACD大行情}
DIF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA赋值:DIF的9日指数移动平均
MACD赋值:2*(DIF-DEA),画红色
VA1赋值:HHVBARS(MACD,上次MACD<0距今天数+1)
VA2赋值:CROSS(BACKSET(CROSS(0,MACD),1日前的VA1+2),0.5)
QG赋值:CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),1日前的VA1+2),0.5)
输出前高线:DRAWLINE(VA2,MACD,1日前的VA2,1日前的MACD,1),画洋红色
MACD120:=REF(MACD/2,上次MACD=120日内MACD最高值距今天数),COLORA67D3D,LINETHICK1
MACD250:REF(MACD/2,上次MACD=250日内MACD最高值距今天数),画黄色, 线宽为2
XG赋值:NOT(1日前的MACD120=MACD120)
当满足条件XG时,在0和MACD之间画柱状线
当满足条件MACD>=MACD250时,在MACD250和MACD之间画柱状线
STICKLINE(MACD>=MACD250 AND MACD>1日前的MACD,MACD,0,1,0),画黄色
大行情赋值:NOT(1日前的MACD120=1日前的MACD250) AND MACD120=MACD250
{墨轩启动板成妖}
DIF4赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
DEA4:=DIF4的9日指数移动平均
ZTB赋值:C>INTPART(1日前的C*(1+10/100)/0.01+0.5)*0.01-0.006 AND C=H
启动版赋值:DIF4>-0.2 AND DIF4<0.35 AND ZTB AND 1日前的ZTB<1 AND 统计5日满足DIF>=-0.01的天数=5
当满足条件启动版时,在MACD250*1.3和'妖'位置书写文字
{MACD年线共振色带}
STICKLINE(月MACD>1日前的月MACD,MACD250,0,5,0),COLORLIMAGENTA
STICKLINE(月MACD<1日前的月MACD,MACD250,0,5,0),COLORLIGREEN
{STICKLINE(周柱>1日前的周柱,MACD250/2,0,5,0),COLOR3300CC
}
{STICKLINE(周柱<1日前的周柱,MACD250/2,0,5,0), 画蓝色
}
DRAWBAND(周MACD的10日指数移动平均,RGB(0,0,180), 周MACD,RGB(255,255,0))
{MACD柱}
STICKLINE(MACD>0 AND MACD>1日前的MACD,0,MACD,1,0),画黄色
STICKLINE(MACD>0 AND MACD<1日前的MACD,0,MACD,1,0),COLORLIBLUE
当满足条件MACD<0时,在0和MACD之间画柱状线
当满足条件MACD>=MACD250时,在MACD250和MACD之间画柱状线
{STICKLINE(MACD>=MACD250 AND MACD>1日前的MACD,MACD,0,1,0),画黄色
}
日MACD1:MACD,画黄色,LINETHICK4
MACD2501:REF(MACD/2,上次MACD=250日内MACD最高值距今天数),画黄色, 线宽为3,NODRAW