【通达信分享源码】精品指标公式－MACD变异指标源码

公式源码：

WY1001:=(2*CLOSE+HIGH+LOW)/4;

WY1002:=EMA(WY1001,4);

WY1003:=EMA(WY1002,4);

WY1004:=EMA(WY1003,4);

XYS0:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100;

STICKLINE(XYS0>=0,XYS0,0,2,0),COLORRED;

STICKLINE(XYS0<0,XYS0,0,2,0),COLORGREEN;

HD:=FILTER(BACKSET(XYS0>0 AND XYS0<REF(XYS0,1) AND REF(XYS0,1)>REF(XYS0,2),2),1);

DRAWLINE(HD,XYS0,REF(HD,1),REF(XYS0,1),1);

LD:=FILTER(BACKSET(XYS0<0 AND XYS0>REF(XYS0,1) AND REF(XYS0,1)<REF(XYS0,2),2),1);

DRAWLINE(LD,XYS0,REF(LD,1),REF(XYS0,1),1);

PJGJ:=AMOUNT/AMO/100;

SSRYDJX:=MA(PJGJ,13);

SSRCJL:=EMA(AMO,13);

SSRCJE:=EMA(AMOUNT,13);

SSRCBJX:=SSRCJE/SSRCJL/100;

CYS13:=(CLOSE-SSRCBJX)/SSRCBJX*100;

XYSHSL:=EMA(AMO/CAPITAL*100,13);

ZZX:0,COLORWHITE;

{STICKLINE(XYSHSL>6.1 AND CYS13>5,2,0,2,0),COLORGREEN;

STICKLINE(XYSHSL>3.8 AND CYS13>5,1.5,0,2,0),COLORYELLOW;

STICKLINE(XYSHSL>2.1 AND CYS13>5,1,0,2,0),COLORCYAN;

STICKLINE(XYSHSL>1.8 AND CYS13>5,0.5,0,2,0),COLORBLUE;}

XYS1:MA(XYS0,2);

XYS2:MA(XYS0,1);

DRAWICON(CROSS(XYS2,XYS1),XYS0,11);    

DRAWICON(CROSS(XYS1,XYS2),XYS0,15);