多周期MACD副图源码分享

零轴:0;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
STICKLINE("MACD.MACD#WEEK">=0,0,"MACD.MACD#WEEK",2.5,0),COLORLIRED;
STICKLINE("MACD.MACD#WEEK"< 0,0,"MACD.MACD#WEEK",2.5,0),COLORLIGREEN;
DRAWBAND(周DIF,RGB(255,200,70),周DEA,RGB(70,100,50));
DRAWBAND(DIF,RGB(155,50,50),DEA,RGB(0,100,50));
MACD:=(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>=0,0,MACD,2,0),COLORRED;
STICKLINE(MACD< 0,0,MACD,2,0),COLORLICYAN;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零价:((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORWHITE;
DIF拐点价:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW;
IF(1,DIF,DRAWNULL),COLORCYAN;
IF(DIF>=REF(DIF,1),DIF,DRAWNULL),COLORFF00FF;
IF(1,DEA,DRAWNULL),COLOR1AFFFF;

原理解析：
输出零轴:0
输出DIF:收盘价的12日指数移动平均-收盘价的26日指数移动平均
输出DEA:DIF的9日指数移动平均
周DIF赋值:"MACD.DIF#WEEK"(12,26,9)
周DEA赋值:"MACD.DEA#WEEK"(12,26,9)
当满足条件"MACD.MACD#WEEK">=0时,在0和"MACD.MACD#WEEK"之间画柱状线
当满足条件"MACD.MACD#WEEK"< 0时,在0和"MACD.MACD#WEEK"之间画柱状线
DRAWBAND(周DIF,RGB(255,200,70),周DEA,RGB(70,100,50))
DRAWBAND(DIF,RGB(155,50,50),DEA,RGB(0,100,50))
MACD赋值:(DIF-DEA)*2,COLORSTICK
当满足条件MACD>=0时,在0和MACD之间画柱状线
当满足条件MACD< 0时,在0和MACD之间画柱状线
ES赋值:1日前的C的26日指数移动平均
EP赋值:1日前的C的12日指数移动平均
DI赋值:1日前的DIF
DIF穿零价:((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,画白色
DIF拐点价:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),画黄色,NODRAW
如果1返回DIF否则返回DRAWNULL
IF(DIF>=1日前的DIF,DIF,DRAWNULL),COLORFF00FF
如果1返回DEA否则返回DRAWNULL